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Vol. 4 No 51 

GAMES PROGRAMMING 55 

TUMBLING DICE 1589 

A complete program to let up to six players take part 
in the traditional dice game 'Yacht'. It rolls the dice, 
displays them and then fills in the score card 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4.95 (inc.p & p) [1R£5.95) for 

each binder to the address below: 
Marshall Cavendish Services Ltd, 
Department 980, Newtown Road, 
Hove, Sussex BN3 7UN 
Australia; See inserts for details, or 
write to INPUT, Times Consultants, 
PO Box 213, Alexandria, NSW 2015 
New Zealand: See inserts fordetails, or 
write to INPUT, Gordon and Gotch 
(NZ; Ltd, PO Box 1595, Wellington 
Malta: Binders are available from local 
newsagents. 



MACHINE CODE 54 



COMMODORE HI-RES GRAPHICS— 3 1 596 

The final part ot a utility program to expand the 
6-4's BASIC commands into hi-resolution graphics, 
including a completely revised full program 



The re are four hinders each Holding II issues. 

BACK NUMBERS 

Back numbers are supplied at the regular cover price (subject to availability). 

UK and Republic oflreland: 

INPUT, Dept AN, Marshall Cavendish Services, 
Newtown Road, Hove BN3 7DN 
Australia, New Zealand and Malta: 

Back numbers are available through your local newsagent. 
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DISK-EDITING UTILITIES 



Programs to allow you direct access to the bytes 
stored on a disk, for easy manipulation or 
retrieval of corrupted information 

PERIPHERALS 



COPIES BY POST 



Our Subscription Department can supply copies to any LIK address regularly at jT 1 .00 each. 
For example the cost of 26 issues is £26.00; for any other quantity simply multiply the number 
of issues required by £1.00. Send your order, with payment to: 

Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BN3 7DN 
Please state the title of the publication and the pan from which you wish to start. 
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USIC, MICROS AND Mil 



The revolution in computer control of musical 
synthesizers, and how you can use your micro to provide 
a whole backing group 



INDEX 

The last pa riot INPUT, Part 52, will contain a complete, cross-referenced index. 
For easy access lo yoL>r growing collection, a cumulative index to the contents 
of each Issue is contained on the inside back cover. 



PICTURE CREDITS 

Front cover, Graeme Harris. Pages 1589, 1590, 1591, 1593, 1594, 1595, Anni 
Axworthy. Pages 1597 to 1618, Graeme Harris. Pages 1618, 1619, Berry Fallon 
Design. 



© Marshall Cavendish Limited 1985/6/7 
All worldwide rights reserved. 

The contents of this publication including software, codes, listings, 
graphics, illustrations and text are the exclusive property and copyright of 
Marshall Cavendish Limited and may not be copied, reproduced, 
transmitted, hired, lent, distributed, stored or modified in any form 
whatsoever without the prior approval of the Copyright holder. 

Published by Marshall Cavendish ['artworks Lid, 5K Old Qimpum Street. London W1V 5PA. 
England. Typeset by ASS l-'ilmseuing Limited, Frame, Somerset. Primed by Cooper Clcgg 
Web Offset Ltd, Gloucester and Howard Hunt Litho, London. 



HO W TO PAY: Readers in UK and Republic oflreland: All cheques or postal orders 
for binders, back numbers and copies by post should be made payable to: 
Marshall Cavendish Partworks Ltd. 



QUERIES: When writing in, please si vet he make and mod el of your computer, as 
well as I he Part No., page and line where the program is rejected or where it does 
not work. We can on I v answer specific queries -and please do not telephone. Send 
your queries lo INPUT Queries, Marshall Cavendish Partworks Ltd. 58 Old 
Compton Street, London WIV 5PA. 



INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIR ZX SPECTRUM (1 6K, 48K, 1 28cnd + ), 
COMMODORE 64 and 1 28, ACORN ELECTRON, BBC B 
and B+,and the DRAGON 32 and 64. 

In addition, many of the programs and explanations are also 
suitable for the SINCLAIRZX81,COMMODOREVIC20,and 
TANDY COLOUR COMPUTER in 32Kwith extended BASIC. 
Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



H 



SPECTRUM 16K, 
48K,128,and + 

ACORN ELECTRON, 
BBC B and B+ 



COMMODORE 64 and 128 



- ** DRAGON 32 and 64 



ZX81 



LSZ 



VIC 20 



TANDY TRSS0 
COLOUR COMPUTER 
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At last, a computer game that's 
designed for several players. So get 
your family and friends together and 
start throwing the dice in this game 
of luck and skill 



RULES OF THE GAME 



STRATEGY 



DICE UDGS 



THROWING THE DICE 



SCORING 



So far, nearly all the games in INPUT, 
whether arcade games, adventure games or 
strategy games, have pitted the player against 
the computer. With all of these games the 
main problem was to make the rules and the 
setting complex enough to give the player an 
enjoyable game, or, in the case of strategy 
games, to turn the computer into an intelli- 
gent and worthwhile adversary. This game is 
different. Instead of one person playingalone, 
this game is designed for up to six people 
playing against each other. The computer 
does not take part in the game itself. Instead, 
it keeps track of each player's score, makes 
sure no one cheats, and displays the score 
card — leaving the players to concentrate on 
the best strategy for winning the game. 

The game is a computerized version of the 
popular dice game called Yacht. Yacht is an 
engrossing game combining luck and judge- 
ment as each player aims to make the highest 
score, The rules are quite simple. Each player 
throws five dice at a time (or rather, in this 
version, the computer throws the dice and 
displays them on the screen). If you don't like 
what comes up, you are allowed to have two 
more goes at throwing the dice and can choose 
how many of the dice to throw each time in an 
attempt to build up the best 'hand' you can. 
After the three goes you must enter the throw 
on the score card and the turn passes to the 
next player. 

The options on the score card are: 



Dice 


Score 


Ones 


Total value of ones only 


Twos 


Total value of twos only 


Sixes 


Total value of sixes only 


4 of a kind 


Total of the four dice 


Full house 


Total of all five dice 


Short run 


15 


Long run 


30 


Choice 


Total of all five dice 


Yacht 


50 



A short run is a run of four dice, say 2, 3, 4, 5, 
and a long run is a run of all five dice, either I, 
2, 3, 4, 5 or 2, 3, 4, 5, 6. A full house consists 
off three numbers of one kind plus a pair of 
any other number. Choice is a mixture of any 
dice, and Yacht is five of a kind. 



Players must select a different category on 
each turn. To select a category, move the 
arrow up or down and press the space bar 
when the arrow points to your choice. If, at 
the end of the three throws, the dice cannot be 
fitted into any of the vacant categories, you 
have to choose which category to 'waste'. It is 
obviously best to waste one of the low scoring 
categories such as the ones or twos. However, 
towards the end of a round, you may be forced 
to waste some of the higher-scoring 
categories. In fact, it is good strategy to aim 
for the higher-scoring categories first, as these 
are more difficult to get. 

The program is divided into three main 
sections, the initialization routine, the main 
game loop, and the subroutines or procedures 
called by the main loop. 



INITIALIZATION 



This section sets up the UDGs which display 
the dice, initializes the variables and asks for 
the names of the players. 



20 LETQ$ = " ": LETZ$ = "nDD 

□ □ □ □ □ D D □": DIM C(13): FOR 
N = 1 TO 13: READ C(N): NEXT N: DIM 
T(5): DIM R(5): DIM D(5) 

30 FOR N = USR "A" TO USR "G" + 7: 
READ A: POKE N,A: NEXT N 

40 DATA 2,3,4,5,6,7,11,14,17,20,23,25,27 

50 DATA 0,0,0,24,24,0,0,0 

60 DATA 0,6,6,0,0,96,96,0 

70 DATA 3,3,0,24,24,0,192,192 

80 DATA 0,102,102,0,0,102,102,0 
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90 DATA 195,195,0,24,24,0,195,195 
100 DATA 102,102,0,102,102,0,102,102 
110 DATA 0,24,48,96,255,96,48,24 
1 20 PRINT AT 1 0,13;"YACHT": INK 1 : PRINT 

AT 12,7;"HOW MANY PLAYERS""TAB 

11;"(1 TO 6)" 
130 INPUT NP: LET NP = INT (NP): IF NP<1 

ORNP>6THENGOTO130 
H0DIMO(NP,12): DIM P(NP,12): DIM 

S(NP,5): DIM N$(NP,6): DIM Q(NP) 
1 50 FOR N = 1 TO NP: CLS : PRIMT AT 

8,5;"PLAYERD"; (N);".""TAB 5;"WHAT'S 

YOUR NAME?": INPUT W$: IF LEN 

W$>6THEN LETW$ = W$(T0 6) 
160 LET N$(N) = Z$( TO 3-(LEN 

W$)/2) + W$:NEXTN 



1 POKE53280,5: POKE53281 ,1 3:PRINTCH R$ 

(147);CHR${144); 
20DIMT(5),TR(5),D(5),A$(13),DC$(5) 
30 FORZ = 1 T06:READA:Z$ = Z$ + CHR$(A): 

NEXT 
40 F0RZ = 1TO5:FORX = 1T05:READQ: 

DC$(Z) = DC$(Z) + CHR$(Q):NEXTX,Z: 

FORT = 1T012 
50 READA$:A$(T)=A$+LEFT$(" ", 

12-LEN(A$)) + ":":NEXTT 
60 PRINTTAB(127);"HOW MANY PLAYERS 

(1-6) ?"; 
70 GETA$:IFA$<"1"ORA$>"6"THEN70 
80NP = VAL{A$):PRINTNP:DIMN$(NP),SC 

(NP),0(NP,13),P(NP,13),S(NP,5) 




90 PRINTCHR${149):FORN = 1TONP:PRINT 

TAB(1);"PLAYER";N,:INPUT"NAMED"; 

N$(N):NEXT 
1150 DATA 17,157,157,157,157,157,32,32,32, 

32,32,209,32,32,32,32 
1160 DATA 32,32,209,32,32,32,32,32,32,209, 

209,32,32,32,209 
1170 DATA ONES,TWOS,THREES,FOURS, 

FIVES,SIXES,4 OF A KIND 
1180 DATA FULL HOUSE,SHORT RUN, LONG 

RUNXHOICE,YACHT 



20MODE2:VDU23,1;0;0;0;0:'FX11,0 

30 DIMT(5),TR(5),D(5),A$(13) 

40 FORT = 1T01 2: READA$:AS(T) = A$ + 

STRING$((12-LEN(A$)),".")+":":NEXT 
50 VDU23,224,0,0,0,24,24,0,0,0 
60 VDU23,225,0,6,6,0,0,96,96,0 
70 VDU23,226,3,3,0,24,24,0,1 92,1 92 
80 VDU23,227,0,1 02,1 02,0,0,1 02,1 02,0 

VDU23,228,1 95,1 95,0,24,24,0,1 95,1 95 
1 00 VDU23,229,1 02,1 02,0,1 02,1 02,0,1 02, 1 02 
1 1 VDU23,230,0,24,48,96,255,96,48,24 
120COLOUR130:CLS:COLOUR7 
130 PRINTTAB(2,14)"HOW MANY 

PLAYERS"""nnnnn( 1 T0 6)" : 

REPEAT:NP = GET-48:UNTILNP>0 AND 
NP<7 




140DIMN$(NP),SC(NP),O(NP,13),P(NP,13),S 

(NP,10) 
150COLOUR128:CLS:COLOUR2:FORN = 1TO 

NP 
1 60 PRI NTTAB (5,1 0)"PLAYER □ ";N;"."" 

"□WHAT'S YOUR NAME ?":INPUTTAB 

(7,14)N$(N):CLS:NEXT 



5£Q 



10CLS:X$ = CHR$(13):DIMD$(6,4) 
20FORK = 1TO6:FORJ = 1TO3:FORL = 1TO3: 

READA:D$(K,J) = D$(K,J) + CHR$(128 + 

65'A):NEXT 
30D$(K,J) = D$(K,J) + CHR$(133):NEXT 



40D$(K,J) = STRING$(3,131) + CHR$(135): 

NEXT 
50 DATA 0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1 
60 DATA 1,0,0,0,1,0,0,0,1,1,0,1,0,0,0,1,0,1 
70 DATA 1,0,1,0,1,0,1,0,1/1,0/1,1,0,1,1,0,1 
80 PRINTPRINT" HOW MANY PLAYERS 

(1-6) ?"; 
90 A$=INKEY$:IF A$<"1" OR A$>"6" 

THEN 90 
100PRINTA$:NP = VAL(A$):CLS 
110FORN = 1TONP:PRINT@65,"PLAYER";N: 

PRINT" □ WHAT'S YOUR NAME ?":INPUT 

N$(N) 
120CLS:NEXT 
130DIMO(NP.12),P(NP,12),S(NP,10) 



THE MAIN GAME 



The structure of the game is very simple and 
consists of only these few lines: 



170 FOR R = 1 TO 5: FOR 1 = 1 TO 12: FOR 

N = 1TONP 
180 BORDER 4: INK 0: PAPER 4: CLS : PRINT 

AT3,13;N$(N) 
190 FOR M = 5 TO 27: PRINT PAPER 0;AT 

5,M;"n";AT19,M;"CT: NEXT M 
200 FOR M = 6 TO 1 8: PRINT PAPER 0;AT 

M,5;"D";ATM,27;"D": NEXT M 
210 GOSUB 240: PAUSE 0: GOSUB 430 
230 NEXT N: NEXT I: GOSUB 1290: NEXT R: 

STOP 



KB 



100FORR = 1TO5:FORI = 1TO12:FORN = 1TO 

NP 
110PRINTCHR$(147);CHR$(31):GOSUB1140 
120 PRINT 

130 GOSUB170:FORE = 1TO1500:NEXT 
1 40 POKE53280,6:POKE53281 ,14:G0SUB31 
150POKE53280,5:POKE53281,13:NEXTN,I: 

POKE53280,2:POKE53281,10:GOSUB940 
160NEXTR:POKE53280,0:POKE53281,11: 

PRINTCHR$(147);CHR$(5);"BYEN0W!": 

END 
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1140 PRINTSPC((40- LEN(N$(N)))/2); 
N${N):RETURN 



1 70 FORR = 1 T05: FOR I = 1 T01 2j FORN = 1 TO 
NP 

180COLOUR128:CLS:CQLOUR6:PROCNAME 

(3) 
1 90 VDU28,0,22,1 9,5:COLOUR1 32:CLS:VDU 

28,1 ,21 ,1 8,6:COLOUR1 30:CLS:VDU26 
200 PROCTHROW 
210 FORE = 1TO1500:NEXTE 
220 M0DE1 :VDU23,1 ;0;0;0;0:PftOCSCORE: 

MODE2:NEXTN,I:MODE1:VDU23,1;0;0;0;0 
230 PROCTABLE:MODE2:VDU23,1 ;0;0;0;0: 

NEXT:END 
920 DEF PROCNAME(Y):PRINTTAB(10- 

((LEN(N$(N)))/2},Y)N$(N):ENDPR0C 

140 FORR = 1T05:FORI = 1T012:FORN = 1TO 

NP 
150 CLS:W = 6:Y = 2:GOSUB980:GOSUB190 
1 60 SOUND50,3:FORE = 1 TO800:NEXT 
170CLS:GOSUB350:CLS:NEXTN,I 
180CLS:GOSUB990:NEXTR:END 
980PR!NT@Y'32 + W-((LEN(N${N)))/2), 

N${N):RETURN 

There are three nested loops controlling the 
game. R is the number of rounds, 1 is the 
number of goes per round and N is the 
number of players. The routines called inside 
these loops throw the dice, print the score 
sheet and print the final score table. The 
Acorn, Dragon and Tandy also call a short 




routine to centre the name on the screen. The 
main routines are broken down yet again into 
smaller routines as you'll see in a moment. 



THROWING THE DICE 



The first of the routines throws the dice and 
displays them on the screen, it calls two other 
routines which are given here as well. Add 
these to the last sections. 



240 LETT=1: FOR D = 1 TO 5: LET 
T(D) = INT (RND*6) + 1 : NEXT D 

250 PRINT AT 6 + T'3,7; "THR0WD";T 

260 GOSUB 1180 

270 IF T=3 THEN GOTO 390 

280 LET C = 1 : FOR D = 1 TO 5 

290 PRINT AT 7 + T'3,16 + D'2;"?" 

300 FOR J = 1 TO 50: NEXT J 

310 LET A$=INKEY$: IF A$ = "" THEN 

GOTO 310 
320 IF A$ = "N" THEN BEEP .1,10: GOTO 

360 
330 IF A$ <> "Y" THEN GOTO 31 
340 BEEP .1,30 

350 LET R(C) = T(D): LETC = C + 1 
360 PRINT AT7 + T*3,16+D*2;"D": NEXT 

D 
370 IF C = 6 THEN GOSUB 420: LET T = 4: 

GOTO 400 
380 FOR D = C TO 5: LET R(D) = INT 

(RND'6) + 1: NEXT D: GOSUB 420 
390LETT=T + 1 
400IFT< >4THEN GOTO 250 
410 RETURN 
420 FOR D = 1 T0 5:LETT(D)=R(D):NEXT 

D: RETURN 
1180 FOR D = 1 TO 5: PRINT PAPER 2; 

INK 6; BRIGHT 1;AT 6 + T*3,16 + 

D*2;CHR$ (143 + T(D)): PAUSE 2: BEEP 

.01, RND*40: NEXT 0: RETURN 



170T = 1:FORD = 1TO5:T(D) = INT 

(RNDOKej + ^NEXTD 
180 PRINTTAB(1 );'THR0W:";SPC(2);T;: 

GOSUB1040 
190(FT = 3THENT = 4:PRINTTAB{120):GQTO 

280 
200 C = 1:PRINTTAB(165);:FORD = 1T05: 

PRINTSPC(5);"?";CHR$(157); 
210 GETA$:IFA$< >"Y"ANDA$o"N" 

THEN210 
220 POKE53280,5:IFA$ = "N"THEN240 
230TR(C)=T(D):C = C + 1 
240PRINTCHR$(32);:NEXTD:PRINTCHR$ 

(145) 
250IFC = 6THENGOSUB300:T=4:GOTO280 
260 FORD = CT05:TR(D) = INT(RND 

(1)*5) + 1:NEXTD 
270GOSUB300:T = T + 1 



280IFT<4THEN180 

290 RETURN 

300 FORD=1T05:T(D)=TR(D):NEXT: 

RETURN 
1040PRINTCHR$(17);CHR$(17);CHR$(29);: 

F0RX = 1T05:D = T(X) 
1050 PRINTCHR$(18);:FORQ = 1T05:PRINT 

CHR$(157);:NEXTQ 
1060IFD = 1THENPRINTDC$(1);Z$;DC$(1); 

Z$;DC$(3);Z$;DC$(1);Z$;DC$(1); 
1070IFD = 2THENPRINTDC$(2};Z$;DC$(1}; 

Z$;DC$(1);Z$;DC$(1);Z$;DC$(4); 
1080IFD = 3THENPRINTDC$(4);Z$;DC${1); 

Z$;DC$(3);Z$;DC$(1);Z$;DC$(2); 
1 090 I FD = 4THENPRINTDC$(5);Z$;DC$(1 ); 

Z$;DC$(1);Z$;DC$(1);Z$;DC${5); 
1100IFD = 5THENPRINTDC$(5);Z$;DC$(1); 

Z$;DC${3);Z$;DC$(1);Z$;DC$(5); 
1110IFD = 6THENPRINTDC$(5);Z$;DC$(1); 

Z$;DC${5);Z$;DC$(1 );ZS;DC$(5); 
1120PRINTCHR$(145);CHR$(145);CHR$ 

(145);CHR$(145); 
1130FORZ = 1TO6:PRINTCHR$(29);:NEXTZ,X: 

PRINTRETURN 



240 DEF PROCTHROW 

250VDU23, 1;0;0;0;0:T = 1 

260 FOR D = 1 TO 5: T(D) = RND (6): NEXT 

270 REPEAT 

280 COLOUR 0: COLOUR 130: PRINT TAB (1, 

8 + T'3}"THROW:";T 
290 PROCDICE: IF T=3 THEN T = 4: GOTO 

380 ELSE C = 1 
300 FOR D = 1 TO 5: COLOUR 130: COLOUR 

8:PRINTTAB(8 + D*2, 9 + T*3) "?" 
310A$ = GET$: IFA$= "N" THEN SOUND 

1, -15, 2, 2: GOTO 340 
320 IF A$<> "Y" THEN 310 ELSE SOUND 

1, -15,150,4 
330TR(C)=T(D):C = C + 1 
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340 PRINTTAB, (8 + 0*2, 9 + T*3} "D": NEXT 

350 IF C = 6 THEN PROCTRANS: T=4: GOTO 
380 

'360 FOR D = C TO 5: TR{D) = RND (6): NEXT 

370 PROCTRANS: T = T + 1 

380 UNTIL T = 4: ENDPROC 

390 DEF PROCTRANS 

400 FORD = 1 TO 5: T(D) =TR(D): NEXT: 
ENDPROC 

910 DEF PROCDICE: COLOUR 129: COLOUR 
3: FOR D = 1 TO 5: PRINT TAB (8 + D*2, 
8 + T*3) CHR$(223 + T(D)): FOR E = 1 TO 
8: NEXT: SOUND 0, -15, 0, 1: NEXT: 
ENDPROC 



sao 



190T=1:FORD = 1TO5:T(D) = RND(6):NEXT 

200 PRINT@64*T + 64,"THROW:";T; 
210GOSUB970:IFT = 3THEN310 
220C = 1:FORD = 1TO5 
230 PRINT@288,TAB(9 + D"4}"?" 
240 A$ = INKEY$:IFA$< >"N" AND 

A$o"Y"THEN240 
250 IF A$ = "N" THENSOUND10,1:GOTO270 
260 SOUND100,1:TR(C) = T(D):C = C + 1 
270 NEXTD:PRINT@288 
280IFC = 6GOSUB340:RETURN 
290 FORD = CDT05:TR{D) = RND(6):NEXTD 
300 GOSUB340 
310T = T + 1 
320 IF T<>4 THEN 200 
330 RETURN 

340FORD = 1TO5:T(D)=TR(D):NEXTD:RETURN 
970 FORD = 1 T05:FORG = 1 T04:PRINT@ 

136 + G'32 + D*4,D$(T(D),G);:NEXTG,D: 

RETURN 

Five dice are thrown at first and these are 
displayed on the screen using the routine at 
Line 1180 on the Spectrum, Lines 1040 to 
1130 on the Commodore, 910 on the Acorn 
and 970 on the Dragon and Tandy. You are 
then given the chance to select the dice by 
pressing Y for the ones you wish to keep and 
N for the ones you want to throw again. 

The initial numbers of the five dice are 
stored in array T(). After the first throw, the 
ones you wish to keep are put into a tempor- 
ary array R() and this is made up to five again 
with random numbers. The R() array is then 
transferred back into T() using the one-line 
routine at 420 on the Spectrum, 300 on the 
Commodore, 400 on the Acorn and 340 on 
the Dragon and Tandy. These are displayed 
on the screen once more and the process is 
repeated for your next throw. 



THE SCORE CARD 



The vast majority of the program is con- 
cerned with calculating the score and check- 
ing the entries on the score card. 



430 BORDER 0: PAPER 0: INK 6: CLS 
440 PLOT 4,4: DRAW 0,167: DRAW 124,0: 

DRAW 0,-1 67: DRAW -124,0 
450 PRINT INK 5;AT 1,5;N$(N); INK 4; AT 

2,1;""SCORE SHEET*"" 
460 RESTORE 1280: FOR M = 4 TO 17: READ 

A$: PRINT AT M,1;A$;Q${ TO 11 -LEN 

A$);: IF M<>16 THEN PRINT":" 
470 NEXT M 
480 GOSUB 530 
490 GOSUB 560: GOSUB 530 
500 PRINT FLASH 1;AT 20,18;"ANY KEY 

TO";AT21,18;"CONTINUEDD" 
510 LET A$ = INKEY$: IF A$ = ""THEN 

GOTO 510 
520 RETURN 
530 FOR D = 1 TO 12: IFP(N,D) = 1 THEN 

PRINTAT3 + D,13;"X" 
540 IF 0(N,D) <>0 THEN PRINT AT 

3+D,13;0(N,D) 
550 NEXT D: LET C = 0: FOR D = 1 TO 12: 

LET C = C + 0(N,D): NEXT D: PRINT AT 

17/1 3;C: RETURN 
560 PRINT AT 8,1 8;"ROUND a ";R;AT 

9,18;"SECTIOND";l 
570 PRINT AT 2,18;"FINAL SET= □": LET 

T= —1: GOSUB 1180 
580 PRINT AT 5,18;"SELECT SC0RE";AT 

6,18;"GR0UP." 
590 LET A = 4 

600 PRINT AT A,15;CHR$ 150 
610 LET B$=INKEY$: IF B$ = "" THEN 

GOTO 610 
620 IF B$ = "a" THEN LETA = A-3: 

GOTO 710 
630 IF B$ = "K" THEN GOTO 650 
640 IF B$< >"M" THEN GOTO 610 
650PRINTATA,15; u n" 
660 IF B$ = "K" AND A = 4 THEN GOTO 600 
670 IF B$ = "M" AND A = 15 THEN GOTO 

600 
680 IF B$ = "M" THEN LET A = A + 1 
690 IF B$ = ' l K" THEN LET A = A-1 
700 BEEP .01,5: GOTO 600 
710 PRINT AT A + 3,15;"LT': IF 

P(N,A)o0THEN GOTO 1240 
720 IF A>6 THEN GOTO 780 
730 LET C = 
740 FOR D = 1 TO 5: IFT(D)=A THEN LET 

C = C + 1 
750 NEXT D 
760LETO{N,A)=C*A 
770LETP(N,A) = 1: RETURN 
780 IF A = 11 THEN FOR D = 1 TO 5: LET 

0(N,11) = 0(N,11) + T(D}: NEXT D: LET 

P(N,11) = 1: RETURN 
790 FOR D = 1 TO5:LETD(D)=0:NEXTD: 

LET B = 0: FOR E = 1 TO 6: LETC = 0: 

FOR D = 1 TO 5: 1FT(D) = E THEN LET 



C = C + 1 
800 NEXT D: IF C<>0 THEN LET B = B + 1 
810 NEXTE 
820 LET G = 1 : FOR F = 1 TO 6: GOSUB 

1250: IFCO0THEN LET D(G) = F: LET 

G = G + 1 
830 NEXT F 

840 LET P{N,A) = 1: IF A = 7 THEN GOTO 950 
850 IF A = 8 THEN GOTO 1010 
860 IF A = 9 THEN GOTO 1050 
870 IF A = 10 THEN GOTO 1120 
890 IF A = 12 THEN GOTO 1160 
950 IF B>2 THEN GOTO 1190 
960IFB = 1 THEN GOSUB 1270: LET 

0(N,7) = C: RETURN 
970 LET F = 1 
980 GOSUB 1250: LET F = F + 1: IF C<>4 

AND F<>7 THEN GOTO 980 
990 IF C<4 THEN GOTO 1190 
1000 LET 0{N,7) = 4*(F-1): RETURN 
1010 IF B< >2 THEN GOTO 1190 
1020 LET F = D(1): GOSUB 1250: IF C = 3 

THEN GOTO 1040 
1030 LET F=D(2): GOSUB 1250: IF C< >3 

THEN GOTO 1190 
1 040 LET 0(N,8) = 0: FOR G = 1 TO 5: LET 

0(N,8) = 0(N,8) + T(G): NEXTG: RETURN 
1050 IF B<>4 THEN GOTO 1080 
1060 GOSUB 1270: IF C<>18 AND 

Co10ANDCo14OR (C = 14AND 

D(4) = 6) THEN GOTO 1190 
1070 LET 0(N,9) = 15: RETURN 
1080 IF BoBTHEN GOTO 1190 
1090 GOSUB 1270: IF C = 15 OR C = 16 OR 

C = 19 THEN GOTO 1070 
1100 IF Co 20 THEN GOTO 1190 
11 10 GOTO 1070 

1120 IF B< >5 THEN GOTO 1190 
1130 GOSUB 1270: IF C = 15 OR C = 20 

THEN GOTO 1150 
1140 GOTO 1190 
1150 LET O(N,10) =30: RETURN 
1160 IF B<>1 THEN GOTO 1190 
1170 LET O(N,12}=50: RETURN 
1190 BEEP .5,5: PRINT AT 20,18; 

"ILLEGAL !!";AT 21, 18;"WASTE?" 
1200 LET A$ = INKEY$: IF A$ = "" THEN 

GOTO 1200 
1210 IF A$ = "N" THEN PRINT AT 20,18;"D 

DDDDDDDD D";AT 21,18;"D 

a a a a a a": let p(n,a) =0: goto 

590 

1220 IF A$< >"Y" THEN GOTO 1200 

1230 LET P(N,A) = 1: RETURN 

1240 BEEP .5,5: PRINT AT 20,18;"SECT!ON 
FILLED": FOR H = 1 TO 300: NEXT H: 
PRINT AT 20,18;"D DDDDDDDG 

a nana": goto 590 

1 250 LET C = 0: FOR D = 1 TO 5: IF T(D) = F 

THEN LETC = C + 1 
1260 NEXT D: RETURN 
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1270 LET C = 0: FOR D = 1 TO B: LET 
C = C + D(D): NEXT D: RETURN 

1280 DATA "ONES","TWOS","THREES", 
"F0URS","FIVES","SIXES","4 OF A 
KIND'V'FULL H0USE","SHORT RUN", 
"LONG RUN","CHOICE","YACHT","D 
DDDDDDDDDD "/'TOTAL" 



310PRINTCHR$(147};CHR$(5}:GOSUB1140: 

PRINT 
320 FORZ = 1T051:PRINTCHR$(18); 

CHR$(31);CHR$(32);:NEXTZ 
330 PRINT'"* SCORE SHEET **"; 
340FORZ = 1TO51:PRINTCHR$(18);CHR$ 

(31);CHR$(32);:NEXTZ:PRINT:PRINT: 

PRINT 
350FORT = 1TO12:PRINT,CHR$(149);A$(T): 

NEXTT 
360PRINTTAB(50);CHR$(144);"TOTAL" 
370 GOSUB420:GOSUB490:GOSUB420 
380PRINTCHR$(19);:FORZ = 1TO24:PRINT 

CHR$(17);:NEXTZ 
390 PRINTCHR$(31);SPC(2);"PLEASE PRESS 

ANY KEY TO CONTINUE..."; 
400GETA$:IFA$ = ""THEN400 
410 RETURN 
420PRINTCHR$(19);CHR$(5);:FORZ = 1TO9: 

PR1NTCHR$(17);:NEXTZ:FORD = 1T012 
430 IFO(N,D)o0THENPRINTSPC(30); 

O(N,D):GOTO460 
440 IFP(N,D) = 1THENPRINTSPC(31); 

CHR$(214):GOTO460 
450 PRINT 

460 NEXTD:C = 0:FORD = 1TO12 
470C = C + O(N,D):NEXTD:PRINT 
480PRINTSPC(30);C:S(N,R) = C:RETURN 
490PRINTCHR$(19);CHR$(5);TAB(240}; 
500 PRINT"ROUND";R;"TURN";l; 
510 PRINT"FINAL SET = ";:FORD = 1T05: 

PRINTT(D);CHR$(157);:NEXTD 
520PRINT,SPC(7);CHR$(144);"PLEASE 

SELECT SCORE GROUP:"; 
530A = 1:K = 1353 + (A*40):POKEK,62:POKE 

K + 54272,1 
540 K = 1 353 + (A"40) :POKEK,94 — PEEK(K) : 

POKEK + 54272,1 
550 GETA$:IFA$ = CHR$(32)THEN610 
560 IFA$< >CHR$(145)ANDA$oCHR$ 

(17JTHEN540 
570 POKEK,32:A = A + (A$ = CHR$(145)) 

-(A$ = CHR${17)) 
580IFA = 0THENA = 12 
590 IFA = 13THENA = 1 
600 GOTO540 
610 POKEK,32 

620IFP(N,A)o0THEN920 
630IFAO11THEN650 
640FORD = 1TO5:O(N,A) = O(N,A)+T(D}: 

NEXT:P(N,A) = 1:RETURN 
650 IFA>6THEN690 



660C = 0:FORD = 1TO5:IFT(D) = ATHEN 

C = C + 1 
670NEXT:IFC = 0THEN870 
680 0{N,A} = C*A:P(N,A) = 1:RETURN 
690 FORD = 1TO5:D(D) = 0:NEXT:B = 0:FOR 

F = 1TO6:GOSUB1020 
700IFC<>0THENB = B + 1 
710NEXT:G = 1:FORF = 1TO6:GOSUB1020: 

IFC<>0THEND{G) = F:G = G + 1 
720 NEXT:P(N,A) = 1 :ONA- 6GOTO730J80, 

820,840,915,860 
730IFB>2THEN870 
740 F = 1 
750 GOSUB1020:F = F + 1:IFC<4ANDF<7 

THEN750 
760IFC<4THEN870 
770O(N,A) = 4'(F-1):RETURN 
780IFB<>2THEN870 
790F = D(1):GOSUB1020:IFC = 3THEN810 
800 F = D(2):GOSUB1020:IFC<>3THEN 

870 
810GOTO640 
820IFB>3THENB = 4:GOSUB1010:IFC = 10 

ORG = 1 40RC = 1 8THENO(N,A) = 1 5: 

RETURN 
830 GOTO870 
840GOSUB1010:IFB = 5AND(C = 15OR 

C = 20)THENO(N,A) = 30:RETURN 
850 GOTO870 
860 IFB = 1THENO(N,A) = 50:FORE = 1TO 

1000: NEXT: RETURN 
870 PRINTCHR$(19);"N0 SCORE -WASTE 

IT?" 
880 GETA$:IFA$o"Y"ANDA$< >"N" 

THEN880 
890PRINTCHR$(19);:FORZ = 1TO20:PRINT 

CHR$(32);:NEXTZ 
900IFA$ = "N"THENP(N,A) = 0:GQTO530 
910P(N,A) = 1:RETURN 
915GOSUB1010:O(N,A) = C:RETURN 
920 PRINTCHR$(19);"SECTI0N FILLED":FOR 

E = 1TO1500:NEXTE 
930 PRINTCHR$(19);:FORZ = 1T014:PRINT 

CHR$(32);:NEXT:GOTO530 
1010 C = 0:FORD = 1TOB:C = C + D(D}:NEXT 

D:RETURN 
1020C = 0:FORD = 1TO5:IFT(D) = FTHEN 

C = C + 1 
1030 NEXT: RETURN 



410 DEF PROCSCORE 
420COLOUR128:COLOUR1:MOVE640,8:GCOL 

0,2:DRAW640,1 01 5:DRAW1 271 ,1 01 5: 

DRAW1 271 ,8:DRAW640,8:VDU28,21 ,31 ,38, 

1 
430 PROCNAME(0):COLOUR2:PRINT 

"""SCORE SHEET"*" 
440 C0L0UR3:F0R T = 1T012:PR!NTA$(T)': 

NEXT:PRINTA$(T) 
450 PRINT:C0L0UR2:PRINT"T0TAL :" 




460PROCTOTAL:PROCSCSEL:PROCTOTAL 
470 COLOUR129:COLOUR0:PRINTTAB(0,10) 

"ANY KEY TO CONTINUE" 
480A$ = GET$:ENDPROC 
490 DEF PROCTOTAL:VDU28,21 ,31,38,1: 

C0LOUR1:FORD = 1TO13 
500 IFO{N,D)o0THENPRINTTAB(13, 

1 +D*2);0(N,D)ELSEIFP(N,D) = 1THEN 

PRINTTAB(13/I+D*2)"X" 
510 NEXTD:C = 0:FORD = 1TO12:C = C + O 

(N,D):NEXTD:PRINTTAB(13,29hC:VDU26: 

ENDPROC 
520 DEF PROCSCSEL 
530COLOUR135:COLOUR0:PRINTTAB(0,3) 

"R0UNDD";R;"nSECTIOND";l: 

COLOUR128 
540 COLOUR2:PRINTTAB(0,5)"FINAL SET = " 
550 T= - 1 :PR0CDICE:C0L0UR7:PRINT: 

PRINT"SELECT SCORE GROUP" 
560 COLOUR3:COLOUR128:A = 1 
570 VDU31, 37,2 + A*2,230 
580B = GET:IFB = 32THEN660 
590 IF Bo 58 AND B< >47 THEN 580 
600PRINTTAB(37,2 + A*2)"D" 
610IFB = 47THENA = A+1 ELSE A=A — 1 
620 IFA = 0THENA = 12 
630 IFA = 13THENA = 1 
640 SOUND1,- 15,220,1 
650 GOTO570 
660 PRINTTAB(37,2 + A*2)" □ ": IFP(N,A} 

O0THEN890 
670IFA<>11THEN690 
680FORD = 1TO5:O(N,A) = O(N,A)+T(D): 

NEXT;P{N,A) = 1:ENDPROC 
690IFA>6THEN720 
700 C = 0:FORD = 1TO5:IFT(D} = ADTHEN 

C = C + 1 
710 NEXT:IF C = THEN 840 ELSE 0(N,A) = 

C*A:P(N,A) = 1:ENDPR0C 
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720 FORD = 1TO5:D(D) = 0:MEXT:B = 0:FOR 

F = 1T06:PROCMAJ:IFC< >0 THEN B = B 
730 NEXT:G = 1:FORF = 1T06:PROCMAJ:IF 

C<>0THEND(G) = F:G = G + 1 
740 NEXT:P(N,A) = 1:ON A-6 GOTO 750, 

780,800,820,10,830 
750IFB>2THEN840 
760F = 1:REPEAT:PROCMAJ:F=F + 1:UNTIL 

O=4ORF = 7:IFC<4THEN840 
770O(N,A) = 4'(F-1):ENDPROC 
780 IFB<>2THEN 840 ELSE F = D(1): 

PROCMAJ:IFC = 3THEN790 ELSE F=D(2): 

PROCMAJ:IFC<>3THEN840 
790 GOTO680 
800 IF B <> 4 THEN 81 2 ELSE PROCTOTE:IF 

C = 10 OR (C = 14 AND D(4)<>6) OR 

C = 18 THEN 0(N,A) = 15:ENDPROC 
810GOTO840 
812 IF B<>5 THEN 840 ELSE PROCTOTE:IF 

C = 20ORC = 15ORC = 16ORC = 19 

THENO(N,A) = 15:ENDPROC 
820PROCTOTE:IFB = 5AND(C = 15OR 

C = 20) THEN 0(N,A) = 30:ENDPROC ELSE 
830 IF B = 1 THEN 0(N,A) = 50:T = INKEY 

(200):ENDPROC 
840 SOUND1 , - 1 5,20,10:PRINTTAB{0,10) 

"ILLEGAL! WASTE IT?" 
850 A$ = GETS 
860 IFA$ = "N"THENPRINTTAB(0,10) 

STRING${18,"D");:P(N,A) = 0:GOTO560 
870IFA$o"Y"THEN850 
880P(N,A) = 1:ENDPROC 
890 SOUND1 , — 1 5,5,1 0:PRINTTAB{2,1 0) 

"SECTION FILLED";:FORE = 1TO1500: 

NEXTE:PRINTTAB(2,10)"D n DDDD 

DDDDDDDDDD ";:GOTO560 
900 ENDPROC 
1070 DEF PROCMAJ:C = 0:FORD = 1TO5:IFT 

(D) = FDTHEN C = C + 1 
1080NEXT:ENDPROC 
1090 DEF PROCTOTE:C = 0:FORD = 1TO5: 

C = C + D(D):NEXTD:ENDPROC 
1100 DATA ONES,TWOS,THREES,FOURS, 

FIVES,SIXES,4 OF A KIND,FULL HOUSE, 

SHORT RL)N,LONG RUN,CHOICE,YACHT 

350 CLS 

36.0 W = 6:Y = 0:GOSUB980: PRINT 
' """SCORE SHEET**"" 

370 PRINT"ONES :"X$"TWOS 

:"X$"THREES :"X$"FOURS 

:"X$"FIVES :"X$"SIXES 







380 PRINT"4 OF A KIND.:"X$"FULL HOUSE 
. .:"X$"SHORT RUN. . .:"X$"LONG RUN 

....:"X$"CHOICE :"X$"YACHT 

:"X$ 

390 PRINT'TOTAL :"; 

400 GOSUB460 

410GOSUB490:GOSUB460 

420 PRINT@467,"any key to";:PRINT@500, 



"continue"; 
430SOUND60/I 

440 A$=INKEY$:IFA$="" THEN440 
450 RETURN 
460 FORD = 1T012:IFP(N,D) = 1 THEN 

PRINT@45 + D-32,"X"; 
470 IFO(N,D)o0THENPRINT@45 + D*32, 

0(N,D); 
480 NEXTD:C = 0:FORD = 1TO12:C = C + O 

(N,D):NEXT:PRINT@493,C;:RETURN 
490 PR1NT@53,"R0UND"R;:PRINT@84, 

"SECTION"!; 
500PRINT@115,"FINALSET="; 
510FORD = 1TO5:FORG = 1TO4: 

PRINT@111 +G*32-(D>3)*118 + 4 , D, 

D$(T(D),G);:NEXTG,D 
520 PRINT@403,"SELECT GROUP"; 
530 A = 1 

540 PRINT@49 + 32*A,CHR$(95); 
550 B$ = INKEY$:IF B$o"D" AND 

B$<>"|" AND B$oCHRS(10) 

THEN550 
560IFB$ = "D"THEN620 
570PRINT@49 + 32*A,"D"; 
580 IFB$ = "T" AND A>1 THENA = A-1 
590 IFB$ = CHR$(10) AND A<12 THEN 

A=A + 1 
600 SOUND200,1 
610GOTO540 
620PRINT@49 + 32*A,"D";:IF 

P(N,A)o0THEN950 
630 IFA>6 THEN700 
640 C = 
650 FORD = 1T05:IFT(D) = ADTHEN 

C = C + 1 
660 NEXTD 
670O(N,A) = C*A 
680P(N,A} = 1 



690 RETURN 

700IFA=11 THENF0RD = 1TO5:O(N,11) = O 

(N,11)+T{D):NEXT:P(N,11} = 1:RETURN 
710 FORD = 1TO5:D(D) = 0:NEXT:B = 0:FOR 

E = 1 T06:C = 0:FORD = 1 T05:IFT(D) = E 

THENC = C + 1 
720NEXTD:IFC<>0THENB = B + 1 
730 NEXTE 
740 G = 1:FORF = 1TO6:GOSUB1140:IF 

Co0THEND(G} = F:G = G + 1 
750 NEXTF 
760P(N,A) = 1:A = A-6:ONAGOTO770,810, 

830,870,960,890 
770 IFB>2THEN900ELSEIFB = 1 GOSUB 

1160:O(N,7) = C-4:RETURN 
780 F = 1 
790 GOSUB1140:F = F + 1:IF C< >4 AND 

F<>7 THEN790 ELSEIFC < 4 THEN 900 
800O(N,7)=4*(F-1):RETURN 
810 IFB<>2 THEN900 ELSEF = D(1): 

G0SUB1 1 40: IFC = 3THEN820 ELSE 

F = D(2):GOSUB1140:IFC<>3THEN900 
820 FORD = 1TO5:0(N,8) = 0(N,8) + T(D): 

NEXT: RETURN 
830 IFB < >4 THEN850 ELSEGOSUBT 160:1F 

Co18ANDCo10ANDC<>14OR 

(C = 14ANDD(4} = 6)THEN900 
840O(N,9) = 15:RETURN 
850 IFB<>5THEN900 ELSEGOSUB1 160:IF 

Co20ANDC< >15ANDC<>16AND 

Co19THEN900 
860 GOTO840 
8701FB<>5THEN900ELSEGOSUB1160:IF 

Co20ANDCo15THEN900 
880O(N,10) = 30:RETURN 
890IFB<>1 THEN900 ELSEO(N,12) = 50: 

SOUND5,8:FORE = 1TO700:NEXTE: 

RETURN 
900 SOUND20,1:PRINT@432,"illegal. WASTE?"; 
910 A$ = INKEY$:IF A$< >"Y" AND 

A$o"N"THEN910 
920 PRINT@432," DDDDDDDDD 

DDDDDD"; 
930 I FA$ = "N"THENP(N,A + 6) = 0:GOTO530 
940P(N,A + 6) = 1:RETURN 
950 SOUND5,1:PRINT@433, "section filled";: 

FORE = 1TO700:NEXT:PRINT@433,"DD 

DDDDDDDDDDDD ";:GOTO530 
960 RETURN 
1140 C = 0:FORD = 1TO5:IFT(D) = FDTHEN 

C = C + 1 
1150NEXTD:RETURN 
1160 C = 0:FORD = 1TOB:C = C + D(D):NEXT 

D:RETURN 

The first part of this section up to Line 520 on 
the Spectrum, 410 on the Commodore, 480 
on the Acorn and 450 on the Dragon and 
Tandy, prints out the blank score card and 
calls two other routines to fill in the card and 
accept the latest entry. The following routine, 
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which takes up the next three lines, is the one 
which fills in the card with your previous 
score, and adds up the current total. Follow- 
ing this is a large section which accepts and 
validates ypur choice. 

The first few lines display details of th 
round and section, and re-display your dice 1 
The next part detects which keys are pressed' 
and moves the cursor up and down the score 
card accordingly. The Spectrum version 
uses the M and K keys, to move the cur- 
sor, the Acorn uses : and / and the Com- 
modore, Dragon and Tandy use the up 
and down arrow keys. 

As soon as you press the space bar the 
choice is accepted and the position of the 
cursor is stored in the variable A. This 
variable conveniently points to your chosen 
category; A = 1 for Ones, down to A = 1 1 for 
Yacht. The value of A is used throughout the 
remainder of the routine to work out your 
score. Another important variable is E which 
holds the number of different dice in your 
throw — so B = 2 for a full house and B = 5 for 
a long run, for example. 

So, depending on the value of A, different 
routines are called to check that your dice 
really do correspond to the category you've 
chosen. Assuming they do, the score is 
worked out and entered onto the score card. If 
they do not match, then the computer prints 
ILLEGAL! and you are asked if you want to 
waste this category. If you answer Y, an X will 
be printed instead of a score, and if you 
answer N you can go on to choose another 
category. The computer will also check if the 
category is already filled. 




THE FINAL SCORE 



The last section simply prints up the total 
score for each player at the end of each round. 
The numbers of the rounds are printed along 
the top and the names of the players down the 
side. There's also a total score for each player. 



1290 BORDER 7: PAPER 7: INK 3: CLS 
1300 PRINT "'"•"""SCORE TABLE"*""" 

1 31 PRINT AT 7,0: FOR D = 1 TO NP: PRINT 

N$(D);"D:"": NEXT D 
1320 PRINT INK 1;AT 3,0;"PLAYER"; INK 

2;AT3,13;"RDOnunNDD" 
1330 PRINT AT 5,12;: FOR D = 1 TO 5: PRINT 

INK 2;TAB (4 + D"4);D;: NEXT D: PRINT 

INK 0;"D □□TOTE" 
1340 FOR D = 1 TONP 
1360 LET C = 0: FOR E = 1 TO 12: LET 

C = C + 0(D,E):NEXTE: LETS(D,R} = C: 

NEXTD 
1370 FOR D = 1 TO NP: FOR E = 1 TO R 



1380 PRINT INK 4;AT 6 + D*2,4 + E*4; 

S(D,E}: NEXT E: NEXTD 
1390 FOR D = 1 TONP: LETC = 0: FOR E = 1 

TO R: LET C = C + S(D,E): NEXT E: PRINT 

AT6 + D*2,28;C:NEXTD 
1400 PRINT #1; INVERSE 1; INK 

0;"O □ □ □ □ □ QANY KEY TO 

CONTINUED □□□□□" 
1410 LET A$ = INKEY$: IFA$ = ""THEN 

GOTO 1410 
1420 FOR E = 1 TONP: FOR D = 1 TO 12: 

LETO(E,D)=0: LETP(E,D) = 0: NEXTD: 

NEXTE 
1430 RETURN 



940PRINTCHR$(147);CHR$(144);"""* " 

'"SCORE TABLE"*""""""*" 
950 FORD = 1TONP:PR1NTN$(D),:C = 
960 FORZ = 1 T05:PRINTTAB(5 + Z'5);S(D,Z), 

C = C + S(D,Z):NEXT 
970 PR!NTCHR$(5);C:NEXT 
980 PRINTTAB{41); L 'PLEASE PRESS ANY KEY 

FOR NEXT ROUND..." 
990 GETA$:IFA$ = ""THEN990 
1000FORE = 1TONP:FORD = 1TO12: 

O(E,D)=0:P(E,D) = 0:NEXTD,E:RETURN 

H 

930 DEF PROCTABLE 

940 COL0UR3:PRINT"" ""SCORE 

TABLE"*"*"""" , ":VDU28,0,28,39,4 
950COLOUR129:CLS:COLOUR2 
960 PRINTTAB{0,7);:FORD = 1TONP:PRINT 

N$(D):PRINT:NEXT 
970 PRINT7AB(16,3)"Rin0aunNnD" 
980 F0RD = 1T0NP 
990C = 0:FORE = 1TO12:C = C + O(D,E):NEXT 



S(D,R) = C:NEXT 
1000 FORD = 1T05:PRINTTAB(8 + D*4,5);D;: 

NEXTD 
1010 COL0UR3:PRINT"DnTOTAL": COLOUR0 
1020 FORD = 1T0NP:F0RE = 1T0R:PRINTTAB 

(6 + E*4,5 + D"2);S(D,E):NEXTE,D 
1030 FORD = 1TONP:C = 0:FORE = 1TOR: 

C = C + S(D,E):NEXTE:PRINTTAB(31, 

5 + D*2);C:NEXTD 
1040COLOUR130:VDU26:PRINTTAB(8,30) 

"Any key for next round. ":*FX21,0 
1 050 A$ = GETS 
1060 F0RE = 1T0NP:F0RD = 1T012: 

0(E,D) =0:P(E,D) =0:NEXTD,E:ENDPROC 

990 CLS:PRINT"" SCORE TABLE"""" 

1000PR!NT@128:FORD = 1TONP:PRINTN$ 

(D):NEXT 
1010 PRINT@75,"RnonUDNnD" 
1020FORD = 1TONP 
1030 C = 0:FORE = 1TO12:C = C + O(D,E): 

NEXT:S(D,R) = C:NEXTD 
1040 FORD = 1T05:PRINT@98 + D"4,D;: 

NEXT 
1050 PRINT" □ TOTAL" 
1060 F0RD = 1T0NP 
1070 FORE = 1 TOR 
1080PRINT@129 + D*32+E*4,S(D,E);:NEXT 

E,D 
1090 FORD = 1TONP:C = 0:FORE = 1TOR: 

C = C + S(D,E):NEXTE:PRINT@153 + 

D"32,C;:NEXTD 
1100 PRINT@448,"ANY KEY FOR NEXT 

ROUND."; 
1110A$ = INKEY$:IFA$ = ""THEN1110 
1120FORE = 1TONP:FORD = 1TO12: 

O(E,D)=0:P(E,D} = 0:NEXTD,E 
1130 RETURN, 
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Here is a total revision of the 
Commodore C64 Hi-Res program, 
superceding the previous articles and 
supplying the data in modular and 
machine-code form 



In the first two parts of this article (see pages 
748 to 751 and 872 to 877) you saw how to add 
graphics commands to supplement your 
Commodore 64's BASIC. Now you can add 
the rest of the commands to give your 
computer a complete set of graphics com- 
mands which will handle all of the Commo- 
dore 64's graphics programs given in 
INPUT. 

Unfortunately it was discovered that due to 
the extremely advanced nature of the Hi-Res 
program as a whole too many bugs had crept 
into it to allow the normal practice of publish- 
ing errata corrections. So this article includes 
a complete revision of the Hi-Res program 
from the beginning. 

With all computer commands it is important 
to get the syntax exactly right. And INPUT'S 
hi-res graphics instructions are no exception. 
Each command must be followed by the right 
number of parameters. These must have 
values in the right range and be in the right 
order, otherwise strange things may start to 
happen — or you may just get an error 
message. 

And don't forget to prefix all Commodore 
64 graphics commands published in INPUT 
with an @. This helps the computer to 
identify the new commands that you've added 
to BASIC more quickly. The words 
@L0WC0 L and @H I COL also have to be closed 
up with no space in the middle. 

The instruction @HIRES takes two para- 
meters. The first specifies the plotting colour 
to be used and the second specifies the 
background colour. They are specified by the 
logical colour numbers given in the Commo- 
dore Users' Manual. 

The ©COLOUR should also be followed by 
two parameters, The first specifies the border 
colour to be used and the second specifies the 
background colour of the low-resolution 
screen. Again the colour numbers in the 
Commodore Users' Manual are used, 

The syntax used by ©NRM, @CSET, 
@MULTI, @LOWC0L, @H1C0L, @PL0T, 
@LINE, @REC and ©BLOCK are given on 
pages 872 to 877. 

The ©CIRCLE command allows vou to 



draw circles and ellipses of varying sizes. It 
takes five parameters. The first two specify 
the X and Y coordinates of centre of the circle 
or ellipse respectively. 

The next pair specify the X and Y radii of 
the shape. By varying these you can produce 
different-shaped ellipses. But due to the 
rectangular shape of the screen, equal num- 
bers here will not produce a circle. Indeed, 
different ratios are required to produce the 
same shaped ellipses on the @MULTI colour 
and ©HIRES screens. So if you want to draw a 
circle you will have to experiment with the 
parameters a bit. 

The last parameter specifies the plot type. 
For details see the ©PLOT command on page 
874. 

It is also possible to draw part of a circle or 
an ellipse using the ©ARC command. This 
takes eight parameters. 

The first two are the X and Y coordinates 
of the shape which ©ARC is drawing a section 
of. The next pair define the beginning and 
end angles of the arc. The fifth parameter 
specifies the interval between the dots used to 
make up the arc — a 1 here gives a solid line. 

This works slightly differently from 
Simons' BASIC which joins up the different 
points if the line is not solid. So you will have 
to modify the program on page 369 and draw 
in the cat's ears with a ©LINE command. 

The sixth and seventh parameters specify 
the X and Y radii. And the last parameter 
gives the plot type. 

The opposite of ©ARC is ©ANGL. This 
draws in the radii, but omits the circum- 
ference of the shape. It takes six parameters. 

Again, the first two are X and Y parameters 
of the centre of the shape. The third para- 
meter is the angle of the radius required 
measured clockwise, in degrees from the 
vertical position. 

The next two are the horizontal and vert- 
ical radii again. And the last one is, as always, 
the plot type. 

The ©PAINT command fills an area of the 
screen with colour. The area to be filled must 
be completely enclosed by a line, otherwise 
the whole screen will be filled. 

©PAINT takes three parameters. The first 
two are the X and Y coordinates of any point 



within the area to be filled — but don't specify 
a point on the edge or you might run into 
some problems. The ©FLASH command 
flashes a specified colour on the screen from 
normal to reverse field and back again. It 
takes two parameters. 

The first specifies the colour to be flashed. 
The second specifies the speed at which the 
flash is to take place. Speeds are defined by 
any number between 1 and 255. 

Naturally, the ©OFF command which 
switches the flash off needs no parameters. 
The ©TEST command looks at a pixel at a 
specified location and returns the type of dot 
plotted there in memory location 2. So, to use 
this command in a BASIC program you must 
follow it by a PEEK (2). If no dot has been 
plotted it returns 0. ©TEST takes two coordi- 
nates. These are the X and Y coordinates of 
the pixel you want to test, 

The ©DRAW command is used to design a 
shape that you want displayed on the screen. 
But the shape will not actually appear until 
you use the ©ROT command given below. 
©DRAW takes four parameters — the first of 
which is a string. 

The string parameter actually contains the 
design information for the shape. The string 
should contain a series of digits between and 
9 in quotation marks. Each digit is an instruc- 
tion on how to build up the shape. 

The design starts from the X and Y 
position given by parameters two and three 
and is plotted in the plot type specified by the 
fourth parameter. A then moves one pixel to 
the right, A 1 moves one pixel up. A 2 moves 
one pixel down and a 3 moves one pixel to the 
left. In none of these cases is anything plotted. 

A 5 moves one pixel to the right and plots a 
dot. A 6 moves one pixel up and plots a dot. A 

7 moves one pixel down and plots a dot and an 

8 moves one pixel to the left and plots a dot. 

A 9 tells the ©DRAW command to stop 
drawing. 

INPUT'S ©DRAW command will only take 
88 elements in the string parameter. So in 
the skier program on page 188, you have to 
use two ©DRAW commands instead of one. 
The second one should start at the place the 
first one leaves off. 

The ©ROT command not only displays 
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what has been designed with the @DRAW 
command, it also rotates it through a given 
angle and draws it at a specified size. It takes 
two parameters. 

The first is a number between and 7 
which specifies the angle of rotation from the 
verticle in multiples of 45 degrees. The 
second specifies the magnification. A 1 will 
draw the figure up at the same size as specified 
in the @DRAW. A 2 doubles the size — and so 
on. The @CHAR command prints a text 
character up on the screen at a specified size. 
It takes five parameters. 

The first two are the X and Y coordinates 
of the screen position you want the character 
to appear at. The third is the screen code of 
the character — you'll find a full list of the 
screen codes in your User's Guide. The 
fourth is the plot type and the fifth specifies 
the size. This can be any number between 1 
and 8, but it only magnifies the height of the 
letter by the amount given. The width stays 
the same. 

The @TEXT command allows you to write 
text on the graphics screen. It takes six 
parameters. 

The first two are the X and Y coordinates 
of the starting point of the text. The third is a 
string parameter which contains the text you 
want printed up between quotes. Pressing the 
|CTRL| and A keys at the beginning of the text 
will give capital letters when the text is 
displayed on the graphics screen. And 
pressing the |CTRL| and B keys will give 
ordinary, lower case letters. The screen code 
is not the same as the ASC( ) of the character. 

The fourth parameter is the plot type. The 
fifth is the height of the letters. And the sixth 
specifies the number of pixels to be left blank 
between each letter. 
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CIRCLING 



ARCING 



ANGLING 



PAINTING 



FLASHING 



TESTING 



DRAWING 



ROTATING 



ADDING TEXT 



THE ROUND TABLE 



In this part of the hi-res graphics program 
there are a number of commands that deal 
with circles and ellipses. To draw circular 
shapes the computer needs to work out sines 
and cosines. As the ROM routine that does 
this takes rather a long time it is better to 
generate a table that the program can look up 
when it needs it. 

This is done in BASIC. But the data table 
created is in RAM. Along with several of the 
routines in this part of the Commodore Hi- 
Res graphics article, it is located outside the 
protected area from $C000 to $CFFF. 



The saved file is called "HIRES1" 



BASIC PROGRAM 



The first thing to do is to enter and RUN the 
following BASIC program: 



20 sr = 57. 2957795 
30 forf = 0to89 

40Poke47616 + f,sirt((f+ 
42Poke47706+f,sin{(f+ 
45Poke47872 + f,sin((f + 
50Poke47962 + f,sin((f + 
60Poke48128 + f,sin((f + 
70Poke48218 + f,sin((f + 
80 next 



.083)/sr)*255.9 
.916)/sr}'255.9 
,250)/sr)'255.9 
,750)/sr)*255.9 
.41 6)/sr) '255.9 
.583)/sr) '255.9 



When you RUN this program, it POKEs a table 
of sines and cosines into memory. That done, 
you can N EW. 

Because this table is located in the RAM 
under the BASIC interpreter itself you can- 
not use BASIC to save it, and we have 
provided a special machine-code save. After 
you have run the round table you can save the 
table (and all the machine code up to $cfff), to 
disk with our routine with SYS 52908 or to 
tape with SYS 52901 . This routine is typed in 
with your monitor as follows: 
cea010c3 4cd0 41 a2 01 d0 
cea8 05 ff ff ff a2 08 a9 01 
ceb0 a0 01 20 ba ff a5 01 29 
ceb8 fe 85 01 a9 05 a2 df a0 
cec0 ce 20 bd ff a9 00 85 fb 
cec8 a9 ba 85 fc a2 ff a0 cf 
ced0 a9 fb 20 d8 ff a5 01 09 
ced8 01 85 01 20 cc ff 60 48 
cee0 49 52 45 53 00 00 00 02 
ready. 



THE MACHINE CODE 



Using your machine code monitor (page 280) 
type in the two blocks of code below; the first 
can be saved by SYS 52901 or SYS 52908, and 
the second must be saved using the monitor. 
This typing is an arduous task that can be 
done in stages. You can test each command as 
soon as you have typed in the necessary part. 
The symbolic listing is in 13 modules and a 
preface. The first section recognizes the com- 
mands from BASIC and each subsequent 
section completes one or more commands. 

If you have purchased a professional as- 
sembler you can alternatively enter and as- 
semble the symbolic source directly. You can 
assemble the sections independently provided 
you incorporate a copy of the preface with 
each (it's called modular programming). The 
source published here does assemble into the 
hexadecimal code published here. Unfortu- 
nately this powerful program requires the full 
Motorola standard assemble language to de- 
fine, and the sections are too large to fit into 
the INPUT assembler, so they cannot be 
assembled on your INPUT assembler. 

If you want to experiment with additional 
facilities to your HIRES routines, e.g. to move 
the screen or program to fit in with other 
software, or to construct several high reso- 
lution screens, the symbolic source has been 
carefully designed to be as clear as possible 
and the odd comment (prefaced by "!"), has 
been retained in the modules. 



TESTING THE PROGRAM 



When testing the program, it is helpful to (i) 
Start it by SYS 491 52 rather than SYS 52000— 
you sacrifice the copyright message but no- 
thing else, (ii) Test one command at a time, 
(iii) If the machine stops with a row of 
coloured sq uares on the graphic screen, type 
in @NRM |RETURN| (iv) Testing the other 
commands omitting to do @HIRES/@MULTI 
is a way of viewing error messages from the 
HIRES program, (v) You can hit 



I RUN/STOP | / [RESTORE] without destroying any 
BASIC programs or variables and then PEEK 
the data held in your machine code program 



ODl 



to see what went wrong. Finally, get rid of the 
monitor and type in: 

SYS 52000 

to switch on the hi-res commands properly. 

You can then use most of the Commodore 
64 graphics programs in INPUT without 
using Simons' BASIC. Whenever you want 
to reload the hi-res routines, remember to 
load both sections. 

To SAVE anything that you have drawn on 
the screen do the following POKEs: 

POKE43,0:POKE44,32:POKE45,0:POKE46,64 

Then SAVE to tape with: 

SAVE "filename",1,1 

Because INPUTs hi-res graphics program 
occupies different areas of memory from 
Simons' BASIC, you may experience some 
difficulty with routines that save more than 
one screen within the program itself. 
This applies to the paged graphics 
programs on page 1134 and 1135, and the 
room designer program on pages 1 269 to 
1275 and 1308 to 1313. 

49152 78a9 0d8d08 03a9c0 
49160 8d 09 03 58 60 20 73 00 
49168c9 40f0 03 4ce7a7 20 
49176 73 00 a6 7a 86 fb a6 7b 
49184 86 fc a0 00 a2 00 dd 00 
491 92 cf d0 1 8 e8 a9 0d dd 00 
49200 cf f0 29 20 73 00 dd 00 
49208 cf f0 f0 a5 fb 85 7a a5 
49216 fc 85 7b a9 0d dd 00 cf 
49224 f0 03 e8 d0 f6 e8 c8 c8 
49232 20 79 00 c0 2c d0 cf a2 
49240 0b 6c 00 03 b9 73 cf 85 
49248 fb b9 74 cf 85 fc 6c fb 
49256 00 00 00 00 00 00 00 00 
49264 20 9bb7e010b0 0c60 
49272 20fdae20 9eb7e010 
49280 b0 01 60 a2 0e 6c 00 03 
49288 20 70 c0 8e 20 d0 20 78 
49296 c0 8e 21 d0 4c ae a7 ff 
49304 20 70 c0 8a 0a 0a 0a 0a 
49312 85 02 20 78 c0 8a 05 02 
49320 85 02 a9 20 85 fe a9 00 
49328 85 fd a0 00 91 fd c8 c0 
49336 00 d0 f9 e6 fe a6 fe e0 
49344 40 d0 ef a9 3b 8d 1 1 d0 
49352 ad 1 8 d0 29 f0 09 08 8d 
49360 1 8 d0 a2 00 bd 00 04 9d 
49368 28"a0 bd 00 05 9d 28 a1 
49376 bd 00 06 9d 28 a2 bd 00 
49384 07 9d 28 a3 e8 d0 e5 a5 
49392 20 a0 00 99 00 04 99 fa 
49400 04 99 f4 05 99 e8 06 c8 
49408 d0f1 a9c8 8d 16d0 4c 
49416 34 c! ff ff ff ff ff ff 



49424 20 70 c0 8e f1 cf 20 78 
49432 c0 8e f0 cf 20 78 c0 8e 
49440f2cfa9d8 8d16d0ad 
49448 f0 cf 0a 0a 0a 0a 0d f1 
49456 cf 8d f3 cf a9 ff 8d f6 
49464 cf 8d f7 cf 8d f8 cf 8d 
49472 f9 cf a5 02 8d 21 d0 4c 
49480 ae a7 00 00 00 00 00 00 
49488 20 73 00 4c 34 d 00 00 
49496 00 00 00 00 00 00 00 00 
49504 20 70 c0 8e f6 cf 20 78 
4951 2 c0 8e f 7 cf 20 78 c0 8e 
49520 f8 cf ad f7 cf 0a 0a 0a 
49528 0a 0d f6 cf 8d f9 cf 4c 
49536 ae a7 ff ff ff ff ff ff 
4-9544 20 73 00 a9 15 8d 18 d0 
49552 a9 9b 8d 11 d0 a9 c8 8d 
49560 16 d0 a5 01 29 fe 85 01 
49568 a2 00 bd 00 04 9d 28 a8 
49576 bd 00 05 9d 28 a9 bd 00 
49584 06 9d 28 aa bd 00 07 9d 
49592 28 ab e8 d0 eb a2 00 bd 
49600 28 a0 9d 00 04 bd 28 a1 
49608 9d 00 05 bd 28 a2 9d 00 
49616 06 bd 28 a3 9d 00 07 e8 
49624 d0 e5 a2 00 bd 00 d8 9d 
49632 28 a4 bd 00 d9 9d 28 a5 
49640 bd 00 da 9d 28 a6 bd 00 
49648 db 9d 28 a7 e8 d0 e5 4c 
49656 7a c2 00 00 82 74 00 ff 
49664 20 9b b7 8a c9 00 f0 0d 
49672 c9 01 f010c902f01b 
49680a6 0b6c00 03a915 8d 
49688 1 8 d0 d0 02 a9 1 7 8d 1 8 
49696 d0 a5 20 2c 11 d0 f0 58 
49704 4c 90 d a9 3b 8d 1 1 d0 
49712 ad 18 d0 29 f0 09 08 8d 
4972018d0a5 01 29 fe 85 01 
49728 a2 00 bd 28 a4 9d 00 d8 
49736 bd 28 a5 9d 00 d9 bd 28 
49744 a6 9d 00 da bd 28 a7 9d 
49752 00 db e8 d0 e5 a2 00 bd 
49760 28 a8 9d 00 04 bd 28 a9 
49768 9d 00 05 bd 28 aa 9d 00 
49776 06 bd 28 ab 9d 00 07 e8 
49784 d0 e5 a5 01 09 01 85 01 
49792 4c ae a7 ff ff ff ff ff 
49800 a9 1 2c 1 6 d0f 06 0e 
49808 e0 cf 2e el cf ad e0 cf 
4981 6 29 07 49 07 8d ef cf ad 
49824 e2 cf 29 07 0a 0a 85 fd 
49832 ad e1 cf 4a ad e0 cf 6a 
49840 4a 4a 85 fb ad e2 cf 4a 
49848 4a 4a 85 fc 4a 66 fd 4a 
49856 66 fd 1 8 65 fc 69 20 85 
49864 fe a5 fb 0a 0a 0a 90 03 
49872 e6 fe 18 65 fd 85 fd 90 
49880 02 e6 fe 60 00 00 00 00 
49888 20 73 00 4c eb c2 00 02 
49896 20 fd ae 20 8a ad 20 f7 
49904 b7 a5 1 5 30 30 c9 01 90 



49912 08d0 2aa514c9 40b0 
49920 24 20 fd ae 20 9e b7 e0 
49928 c9 b© 1 a 60 ff ff ff ff 
49936 20 fd ae 20 9e b7 e0 03 
49944 90 12 a9 10 2c 16 d0 f0 
49952 04 e0 05 90 07 68 68 a6 
49960 0e 6c 00 03 8e e3 cf 60 
49968 ff ff ff ff ff ff ff ff 
49976 a9 00 8d ff cf 20 e0 c2 
49984 a5 1 4 8d e0 cf a5 1 5 8d 
49992 e1 cf 8e e2 cf 20 10 c3 
50000 4c 58 c3 00 00 00 00 00 
50008 20 88 c2 ad e2 cf c9 c9 
50016 90 03 4c 53 c4 ad e1 cf 
50024 30 0d c9 01 90 0c d0 07 
50032 ad e0 cf c9 40 90 03 4c 
50040 53c4a910 2c16d0d0 
50048 38 ad e3 cf c9 00 d0 0f 
50056 a0 00 ae ef cf b1 fd 3d 
50064 a8 cf 91 fd 4c 06 c4 c9 
50072 02 d0 0f 30 00 ae ef cf 
50080 b1 fd 5d a0 cf 91 fd 4c 
50088 06 c4 a0 00 ae ef cf bl 
50096 fd 1d a0 cf 91 fd 4c 06 
501 04 c4 ad ef cf 4a 8d ef cf 
501 1 2 ad e3 cf c9 00 d0 06 20 
50120 5cc4 4c06c4c9 04d0 
501 28 0f a0 00 ae ef cf b1 fd 
501 36 5d b4 cf 91 fd 4c 06 c4 
50144 c9 01 d0 0b 20 5c c4 Id 
50152 b8 cf 91 fd4c06c4c9 
50160 02 d0 0b 20 5c c4 Id be 
50168 cf 91 fd 4c 06 c4 20 5c 
50176 c4 1 d c0 cf 91 fd a5 fe 
501 84 49 20 85 fe 46 fe 66 fd 
50192 46 fe 66 fd 46 fe 66 fd 
50200 a9 04 45 fe 85 fe a0 00 
50208 ad f9 cf c9 ff d0 1 a a9 
5021610 2c16d0f0 25adf3 
50224 cf 91 fd 1 8 a5 fe 69 d4 
50232 85 fe ad f2 cf 91 fd 10 
50240 12 ea ad f9 cf 91 f d 1 8 
50248 a5 fe 69 d4 85 fe ad f8 
50256 cf 91 fd ad ff cf f0 01 
50264 60 4c ae a7 a0 00 ae ef 
50272 cf b1 fd 3d b0 cf 91 fd 
50280 60 00 00 00 00 00 00 00 
50288 a9 01 8d ff cf 20 e0 c2 
50296a514 8de0cfa515 8d 
50304 e1 cf 8e e2 cf 20 e8 c2 
50312a514 8dd0cfa515 8d 
50320 d1 Cf8ed2cf2010c3 
50328 ad d0 cf 38 ed e0 cf 8d 
50336 3c 03 ad d1 cf ed e1 cf 
50344 8d 3d 03 b0 0b a9 ff 8d 
50352 3f 03 8d 4b 03 4c c2 c4 
50360 a9 01 8d 3f 03 a9 00 8d 
50368 4b 03 ad d2 cf 38 ed e2 
50376 cf 8d 3e 03 b0 08 a9 ff 
50384 8d 40 03 4c db c4 a9 01 
50392 8d 40 03 ad 3f 03 8d 41 
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50400 03 ad 4b 03 8d 4c 03 a9 
50408 00 8d 42 03 ad 3f 03 c9 
504-16 ff f0 0f ad 3c 03 8d 43 
50424 03 ad 3d 03 8d 44 03 4c 
50432 15c5ade0cf38edd0 
50440 cf 8d 43 03 ad el cf ed 
50448 d1 cf 8d 44 03 ad 40 03 
50456 c9 ff f 0e ad 3e 03 8d 
50464 45 03 a9 00 8d 46 03 4c 
50472 39 c5 ad e2 cf 38 ed d2 
50480 cf 8d 45 03 a9 00 8d 46 
50488 03 ad 43 03 38 ed 45 03 
50496 ad 44 03 ed 46 03 b0 26 
50504 a9 00 8d 41 03 8d 4c 03 
5051 2 ad 40 03 8d 42 03 ad 43 
50520 03 ae 45 03 8d 45 03 8e 
50528 43 03 ad 44 03 ae 46 03 
50536 8e 44 03 8d 46 03 ad 44 
50544 03 6a ad 43 03 6a 8d 47 
50552 03 a9 00 8d 49 03 8d 4a 
50560 03 8d 48 03 ad e0 cf 8d 
50568 d0 cf ad e1 cf 8d dl cf 
50576 ad e2 cf 8d d2 cf ad d0 
50584 cf 8d e0 cf ad dl cf 8d 
50592 el cf ad d2 cf 8d e2 cf 
50600 20 58 c3 ad 47 03 1 8 6d 
50608 45 03 8d 47 03 ad 48 03 
50616 6d 46 03 8d 48 03 ad 47 
50624 03 38 ed 43 03 ad 48 03 
50632 ed 44 03 90 33 ad 47 03 
50640 38 ed 43 03 8d 47 03 ad 
50648 48 03 ed 44 03 8d 48 03 
50656 ad d0 cf 18 6d3f03 8d 
50664 d0 cf ad dl cf 6d 4b 03 
50672 Sd dl cf ad d2 cf 18 6d 
50680 40 03 8d d2 cf 4c 1d c6 
50688 ad d0 cf 1 8 6d 41 03 8d 
50696 d0 cf ad d1 cf 6d 4c 03 
50704 8dd1 cf ad d2 cf 18 6d 
50712 42 03 8dd2cfee 49 03- 
50720 d0 03 ee 4a 03 ad 4a 03 
50728 cd 44 03 b0 03 4c 96 c5 
50736 ad 49 03 cd 43 03 b0 03 
50744 4c 96 c5 ad ff cf c9 01 
50752 d0 03 4c ae a7 60 00 00 
50760 00 00 00 00 00 00 00 E 
50768 a9 02 8d ff cf 20 e0 c2 
50776 a5 14 8d bb c6 a5 15 8d 
50784 be c6 8e bd c6 20 e8 c2 
50792 a5 14 8d be c6 a5 1 5 8d 
50800bfc6 8ec0c6 2010c3 
50808 ad c0 c6 38 ed bd c6 f0 
50816 37 90 35 ad bd c6 8d d 
50824 c6 ad bb c6 8d e0 cf ad 
50832 be c6 8d el cf ad be c6 
50840 8d d0 cf ad bf c6 8d d1 
50848 cf ad d c6 8d d2 cf 8d 
50856 e2 cf cd c0 c6 f0 09 ee 
50864 d c6 20 98 c4 4c 89 c6 
50872 4c ae a7 00 00 00 00 00 
50880 00 00 00 00 00 00 00 C 



50888 00 00 00 00 00 00 00 00 
50896 a9 01 8d ff cf 20 e0 c2 
50904 a5 1 4 8d a9 c7 a5 1 5 8d 
50912 aa c7 8e ad c7 20 fd ae 
50920 20 9e b7 8e af c7 20 1 
50928 c3 20 78 c0 8a f0 06 8d 
50936 ae c7 20 00 c7 4c ae a7 
50944 ad af c7 0a 0a 0a 8d 27 
50952 c7 ad af c7 4a 4a 4a 4a 
50960 4a 09 d0 8d 28 c7 a2 00 
50968 ad 0e dc 29 fe 8d 0e dc 
50976 a5 01 29 fb 85 01 bd ff 
50984 ff 9d a7 02 e8 e0 08 d0 
50992 f5 a5 01 09 04 85 01 ee 
51000 0edca2 00 8ea7c7bd 
51008a7 02 20 4ec7aea7c7 
51016 e8e0 08 d0ef 60 8da6 
51024 c7 aeae c7 8e a5 c7 ad 
51032 a9 c7 8d ab c7 8d e0 cf 
51040adaac7 8dacc7 8d e1 
51048cfa0 08 8ca8c7adad 
51056c7 8de2cfada6c7 39 
51 064 9f cf f0 03 20 58 c3 ad 
51072 ab c7 18 69 01 8d ab c7 
51080 8d e0 cf ad ac c7 69 00 
51088 8dacc7 8de1 cf ac a8 
51096c7 88d0cfeeadc7ce 
51104a5c7d0b3 60 00 00 00 
51 1 1 2 00 00 00 00 00 00 00 00 
51120 a9 01 8d ff cf 20 e0 c2 
51128a514 8da9c7a5 15 8d 
51 1 36 aa c7 8e 97 c8 a9 ff 85 
51144 0d85 0ea9 6aa2 00 85 
51 1 52 49 86 4a 8e 9a c8 20 fd 
51160 ae 20 bl a9 a5 6a 8d 9b 
51168 c8 a5 6b 8d 12 c8 a5 6c 
51176 8d 13 c8 20 10 c3 20 78 
51184c0 8af0 0c8daec7 20 
51192 78 c0 8e 98 c8 4c 06 c8 
51200 20 9eb7 4caea7ae9b 
51208c8d0 03 4c94c8ae9a 
51 21 6 c8 bd ff ff 8d 9c c8 c9 
51 224 1 2 f0 1 3 c9 92 f0 1 7 c9 
51232 20 b0 2b c9 01 f0 17c9 
51 240 02 f0 1 b 4c 80 c8 a9 80 
51248 8d99c8 4c80c8a9 00 
51256 8d 99 c8 4c 80 c8 a9 d0 
51 264 8d 1 2 c7 4c 80 c8 a9 d8 
51 272 8d 1 2 c7 4c 80 c8 29 80 
51 280 4a 8d 9d c8 ad 9c c8 29 
51 288 3f 0d 9d c8 0d 99 c8 8d 
51 296 af c7 8e 9a c8 ad 97 c8 
51304 8d ad c7 20 00 c7 ad a9 
51 31 2 c7 1 8 6d 98 c8 8d a9 c7 
51320adaac7 69 00 8daac7 
51 328 ae 9a c8 e8 ec 9b c8 f0 
51336 06 8e9ac8 4c0ec8a9 
51344 d0 8d 12 c7 4c ae a7 00 
51 352 00 00 00 00 00 00 ffff 
51360 20 73 00 a9 01 8d ff cf 
51 368 a9 ff 85 0d 85 0e a9 6a 



51 376 a2 00 85 49 86 4a 8e e8 
51 384 cf 20 b1 a9a5 6a8de9 
51392cfa5 6b8dfac8a5 6c 
51400 8d fb c8 20 e8 c2 a5 14 
51408 8de4cfa5 15 8de5cf 
51416 8e e6 cf 20 10 c3 a0 80 
51 424 8c eb cf 8c ec cf ac dc 
51 432 cf 8c ea cf a9 2c 8d 02 
51 440 ca ae e8 cf ec e9 cf 1 
51448 30 bd ff ff 8d e7 cf c9 
51456 39 f0 26 c9 30 f0 25 c9 
51464 31 f0 4d c9 32 f0 0e c9 
51472 33 f0 0e c9 35 f0 1 5 c9 
51480 36 f0 3d c9 37 f0 65 c9 
51488 38 d0 03 4c b0 c9 4c e1 
51496 ce 4c ae a7 ad ec cf 18 
51504 6dd5cf 8deccfade4 
51512 cf 6d ca cf 20 13 ca 6d 
51520 cb cf 8d e5 cf ad eb cf 
51528 18 6dd9cf Sdebcf ad 
51 536 e6 cf 6d cf cf 4c d9 c9 
51544 ad ec cf 1 8 6d d6 cf 8d 
5t 552 ec cf ad e4 cf 6d c4 cf 
51 560 20 1 3 ca 6d c5 cf 8d e5 
51 568 cf ad eb cf 1 8 6d da cf 
51576 8d eb cf ad e6 cf 6d cc 
51 584 cf 4c d9 c9 ad ec cf 1 8 
51592 6d d7 cf 8d ec cf ad e4 
51 600 cf 6d c6 cf 20 1 3 ca 6d 
51608 c7cf8de5cf ad ebcf 
51616 18 6d db cf Sdebcf ad 
51624 e6 cf 6d cd cf 4c d9 c9 
51632 ad ec cf 18 6d d4 cf 8d 
51640 ec cf ad e4 cf 6d c8 cf 
51 648 20 1 3 ca 6d c9 cf 8d e5 
51656 cf ad eb cf 18 6d d8 cf 
51 664 3d eb cf ad e6 cf 6d ce 
51672 cfcde6cff0 08 8de6 
51680 cf a9 20 8d 02 ca ad e7 
51 688 cf c9 34 30 1 8 ad e4 cf 
51696 8d e0 cf ad e5 cf 8d e1 
51704 cf ad e6 cf 8d e2 cf 8e 
51 71 2 e8 cf 20 58 c3 ce ea cf 
51 720 f0 03 4c ec c8 ee e8 cf 
51728 4c e6 c8 08 cd e4 cf f0 
51736 0a 48 a9 20 8d 02 ca 68 
51 744 8d e4 cf ad e5 cf 28 60 
51 752 ffff ffff ffff ffff 
51 760 a9 02 8d ff cf 20 e0 c2 
51 768 a5 1 4 8d e4 cf a5 15 8d 
51776 e5 cf 8e e6 cf 20 e8 c2 
51784 a5 14 8de7cfa5 15 8d 
51792 e8 cf 8e e9 cf 20 10 c3 
51800 ad e4 cf 18 6d e7 cf 8d 
51 808 ea cf ad e5 cf 6d e8 cf 
51816 8debcfc9 01 30 09 d0 
51824 17 ad ea cf c9 40 10 10 
51 832 ad e6 cf 1 8 6d e9 cf 8d 
51840eccfb0 04c9c9 90 05 
51848 a2 0b 6c 00 03 ad e4 cf 
51856 8d e0 cf ad e5 cf 8d el 



51 864 cf ad e6 cf 8d e2 cf 8d 
51 872 d2 cf ad ea cf 8d d0 cf 
51880 ad eb cf 8d d1 cf 20 98 

51888c4adeacf8de0cf8d 
51 896 d0 cf ad eb cf 8d e1 cf 
51904 8d dl cfadeccf8dd2 
51 91 2 cf ad e6 cf 8d e2 cf 20 
51920 98 c4 ad ec cf 8d e2 cf 
51928 8dd2cf ad e4 cf 8d d0 
51936 cf ad e5 cf 8d d1 cfad 
51 944 ea cf 8d e0 cf ad eb cf 
51952 8de1 cf 20 98 c4 ad e6 
51960 cf8dd2cf ad ec cf 8d 
51968 e2 cf ad e4 cf 8d e0 cf 
51976 8dd0 cf ad e5 cf 8d e1 
51984 cf 8d dl cf 20 98 c4 4c 
51 992 aea7 ffff ffff ffff 
52000 a9 ff 85 33 85 37 a9 If 
52008 85 34 85 38 201 8 e5a9 
5201 6 06 8d 20 d0 a9 0f 8d 21 
52024 d0 a2 00 bd 5d cb 20 d2 
52032 ff e8 e0 2e d0 f5 a5 37 
52040 38 e5 2d aa a5 38 e5 2e 
52048 20 cd bd a9 60 a0 e4 20 
52056 1e ab 4c 00 c0 1f 12 20 
52064 20 20 20 20 20 20 20 20 
52072 49 4e 50 55 54 20 48 49 
52080 52 45 53 20 47 52 41 50 
52088 48 49 43 53 20 20 20 20 
52096 20 20 20 20 20 20 20 20 
521 04 20- 20 20 ff ffff ffff 
52112 20 9b b7 e0 08 10 08 8e 
52120ff cf 8a 0a aa 10 05 a9 
52128 0b 6c 00 03 bd 31 cc 8d 
52136 c4cfbd 32 cc 8d c5 cf 
521 44 bd 3d cc 8d c8 cf bd 3e 
521 52 cc 8d c9 cf bd 35 cc 8d 
52160 ca cf bd 36 cc 8d cb cf 
52168 bd 39 cc 8d c6 cf bd 3a 
52176 cc 8d c7 cf ae ff cf bd 
52184 4d cc 8d cc cf bd 51 cc 
521 92 8d cd cf bd 53 cc 8d ce 
52200 cf bd 4f cc 8d cf cf bd 
52208 5b cc 8d d4 cf bd 5f cc 
52216 8d d5 cf bd 5d cc 8d d6 
52224 cf bd 61 cc 8d d7 cf bd 
52232 61 cc 8d d8 cf bd 5d cc 
52240 8d d9 cf bd 5b cc 8d da 
52248 cf bd 5f cc 8d db cf 20 
52256 fd ae 20 9e b7 8e dc cf 
52264 8a d0 03 4c 9f cb 4c ae 
52272 a7 00 00 00 00 01 00 00 
52280 00 00 00 ff ff ff ff ff 
52288 ff 00 00 00 00 01 00 00 
52296 00 00 00 ff ff ff ff 00 
52304 00 01 00 00 ff ff ff 00 
52312 00 01 00 00 4b 00 b6 00 
52320 b6 00 4b 00 4b 00 b6 00 
52328 b6 00 00 00 00 00 00 00 
52336 20e0c2a514 8de0cf 
52344 a5 15 8de1 cf 8e e2 cf 







52352 20 88 cc 4c ae a7 ff ff 
52360 20 88 c2 a0 00 ad 16 d0 
52368 2910d0 0f aeefcf bd 
52376 a0 cf 31 fd f0 02 a9 01 
52384 85 02 60 ad ef cf 4a aa 
52392 a0 00 bd c0 cf d0 eb ad 
524001ecd18 69 01 69 00 8d 
52408 1 e cd cd1fcdd0 5b a9 
52416 00 8d 1e cd a5 fb 48 a5 
52424 fc 48 a5 fd 48 a5 fe 48 
52432 98 48 a9 7f 8d 0d dc a9 
52440 00 85 fb 85 fd a9 04 85 
52448 fc a9 d8 85 fe a0 00 bl 
52456 fd 29 0f cd 1 d cd d0 06 
52464 b1 fb 49 80 91 fb c8 d0 
52472 04 e6 fc e6 fe c0 e8 d0 
52480 e6 a5 fc c9 07 d0 e0 68 
52488 a8 68 85 fe 68 85 fd 68 
52496 a5 fc 68 85 fb a9 81 8d 
52504 0d dc 4c 31 ea ff 01 00 
52512 20 70 c0 8e 1d cd 20 fd 
52520 ae 20 9eb7 8e1fcda9 
52528 00 8d 1ecd ad 14 03 c9 
52536 af f0 14 a9 7f 8d 0d dc 
52544 a9 af 8d 14 03 a9 cc 8d 
52552 15 03 a9 81 8d 0d dc 4c 
52560 ae a7 00 00 00 00 00 00 
52568 00 00 00 00 00 00 00 00 
52576 20 73 00 a9 00 8d1 fed 
52584 4c ae a7 00 00 00 00 00 
52592 20 d5 cd 20 eb cd 20 23 
52600 ce ffl 06 20 00 40 4c ae 
52608 a7 6c 00 03 f f ff ff ff 
5261 6 ff ff ff ff ff ff ff ff 
52624 20 d5 cd 20 ff cd 4c 76 
52632 cd ff ff ff ff ff ff ff 
52640 20 d5 cd 20 3f ce a5 14 
52648 8db3 41 8d b0 41 a5 15 
52656 8d b4 41 20 23 ce f0 c9 
52664 ad d0 cf 8d e0 cf ad dl 
52672 cf 8d e1 cf ad d2 cf 8d 
52680 e2 cf 20 58 c3 a9 2c 20 
52688 4f 40 4c 98 c4 a9 01 8d 
52696 ff cf 20 e0 c2 a5 1 5 Sd 
52704 d0cfa5 15 8dd1 cf 8e 
5271 2 d2 cf 60 a9 00 8d b3 41 
52720 8d b4 41 8d 3f 40 8d 4b 
52728 40 a9 01 8d 23 40 60 20 
52736 3f cea5 14 8d b3 41 a5 
52744 1 5 8d b4 41 20 3f ce a5 
52752 1 4 8d 3f 40 a5 1 5 8d 4b 
52760 40 20 fd ae 20 9e b7 8e 
52768 23 40 60 20 e8 c2 a5 1 4 
52776 8d ad 41 a5 1 5 8d ae 41 
52784 8e af 41 20 1 c3 ad ad 
52792 41 d0 03 ad af 41 60 20 
52800 fd ae 20 8a ad 20 f7 b7 
52808 a5 1 5 c9 00 f0 06 a5 1 4 
52816 c9 68 10 01 60 a5 14 38 
52824 e9 68 85 14 a5 15 e9 01 
52832 85 15 dfl e4 60 00 00 02 



52840 00 00 00 00 00 00 00 00 
52848 00 00 00 0a 00 00 00 af 
52856 00 00 00 00 82 74 00 ff 
52864 a9 01 8d ff cf a2 01 8e 
52872 1b 43 a2 ff 8e 00 bf 20 
52880 e0 c2 a5 14 8d 18 43 a5 
52888 15 8d 19 43 8e 1a 43 20 
52896 10 c3 4c d0 41 ff ff ff 
52904 ff ff ff ff ff ff ff ff 
5291 2 ff ff ff ff ff ff ff ff 
52920 ff ff ff ff fe ff ff ff 
52928 00 00 00 00 00 00 00 00 
52936 00 00 00 00 00 00 00 00 
52944 00 00 00 00 00 00 00 00 
52952 00 00 00 00 00 00 00 00 
52960 00 00 00 00 00 00 00 02 
52968 00 00 00 00 00 00 00 00 
52976 00 00 00 02 00 00 00 bf 
52984 00 00 00 00 82 74 00 ff 
52992 43 4f 4c 4f 55 52 0d 48 
53000 49 52 45 53 0d 4d 55 4c 
53008 54 49 0d 4e 52 4d 0d 4c 
5301 6 4f 57 43 4f 4c 0d 48 49 
53024 43 4f 4c 0d 50 4c 4f 54 
53032 0d 4c 49 4e 45 0d 42 4c 
53040 4f 43 4b 0d 50 41 b5 0d 
53048 54 45 53 54 0d 43 53 45 
53056 54 0d 52 45 43 0d 43 48 
53064 41 52 0d 54 45 58 54 0d 
53072 41 52 43 0d 41 4e 47 4c 
53080 0d 43 49 52 43 4c 45 0d 
53088 44 52 41 57 0d 52 4f 54 
53096 0d 46 4c 41 53 48 0d 4f 
53104 46 46 0d 88 c0 98 c0 1 
5311 2 d 88 d 60 d 50 d 38 
53120c3 70c4 50c6 80ce70 
53128cc00c2 30cad0c6b0 
53136 c7 90 cd a0 cd 70 cd a0 
53144 c8 90 cb 20 cd 60 cd 20 
53152 01 02 04 08 10 20 40 80 
531 60 fe fd fb f7 ef df bf 7f 
531 68 fc f3 cf 3f 03 0c 30 c0 
53176 02 08 20 80 01 0410 40 
53184 03 0c 30 c0 Id 43 00 00 
53192 01 08 03 00 00 af 00 01 
53200 63 a1 66 a4 01 37 00 72 
53208 d1 03 39 06 00 00 00 00 
53216 00 00 00 00 00 00 00 02 
53224 00 00 00 00 00 00 00 00 
53232 00 00 00 02 00 00 00 af 
53240 00 00 00 64 00 0a 00 00 
16384 ad b3 41 8d b0 41 a9 20 
16392 20 4f 40 20 ac 40 a9 bb 
16400 20 a6 40 20 ac 40 a9 be 
16408 20 a6 40 20 ac 40 ad b3 
16416 41 1 8 69 ff 8d b3 41 90 
1 6424 03 ee b4 41 ae b4 41 f0 
1 6432 0c c9 68 90 08 e9 68 ce 
1 6440 b4 41 8db3 41 38 e9 ff 
16448 90 be ed 23 40 b0 b9 ad 
16456 b4 41 c9ffd0b2 60 8d 



16464 52 41 ad b4 41 d0 2f ad 
16472 b0 41 c9 5ab0 06a2 00 
16480 30 01 d0 3ac9b4b0 0f 
16488 a9 0e 18 ed b0 41 8d b0 
16496 41 a2 00 a0 00 ffl 27 a2 
16504 01 ad b0 41 38 e9 b4 8d 
16512 b0 41 a0 00 f0 1 8 ad b0 
16520 41 38 e9 0e 30 e9 8d bfl 
16528 41 a9 b4 1 8 ed b0 41 8d 
16536 b0 41 a2 01 30 01 8e cb 
16544 40 8c lb 41 a9 ba 8d b7 
16552 40 8d 08 41 ae bfl 41 a5 
16560 01 29 fe 85 01 bd 00 ff 
16568 8d 85 41 ad ad 41 8d 91 
16576 41 ad ae 41 8d 89 41 20 
16584 7c 41 a9ffd01badb1 
16592 41 18 6dd0cfa8adb2 
16600 41 6dd1 cff01bc9 02 
1 6608 b0 47 c0 40 90 13 4c 68 
16616 41 ad d0 cf 38 ed b1 41 
16624 a8 ad d1 cf ed b2 41 90 
16632 6f8de1 cf8ce0cfa9 
16640 b4 18 ed b0 41 aa bd 00 
16648 ff 8d 85 41 ad af 41 8d 
16656 91 41 a9 00 8d89 41 20 
16664 7c 41 a9ffd0 0fadb1 
16672 41 IS 6d d2 cf b0 41 c9 
16680 c8 b0 3d 90 09 ad d2 cf 
16688 38 ed b1 41 90 32 8d e2 
1 6696 cf 48 ac e0 cf 8c 5c 41 
16704 a2 05 68 48 dd b5 41 d0 
16712 06 98 dd bb 41 f0 06 ca 
16720 10 ffl 20 58 c3 30 05 68 
16728 99 b5 41 a9 ff 99 bb 41 
16736 88 10 02 a0 05 8c 56 41 
16744 3d b0 41 38 e9 5a b0 02 
16752 69b4 8db0 41 a5 01 09 
16760 01 85 01 60a9 00 8db1 
16768 41 8db2 41 a2 ff ffl 24 
16776 30 01 f0 03 8eb1 41 18 
16784 69 ff 90 09 18 ee b1 41 
1 6792 d0 03 ee b2 41 ca d0 f0 
16800 29 80 ffl 08 eebl 41 dfl 
16808 03ee b2 41 60 00 00 00 
1 681 6 00 00 00 00 00 00 00 00 
1 6824 00 00 00 00 00 00 00 00 
1 6832 00 00 00 00 00 00 00 00 
1 6840 00 00 00 00 00 00 00 00 
16848 a5 01 29 fe 85 01 ee la 
16856 43 20 67 42 ce 1a 43 ad 
16864 18 43 d0 03 ce 19 43 ce 
16872 18 43 20 67 42 ee 18 43 
16880 d0 03 ee 19 43 ce la 43 
16888 20 67 42 ee 1a 43 ee 18 
16896 43 d0 03 ee 19 43 20 67 
16904 42 3d 18 43 d0 03 ce 19 
16912 43 ce 18 43 ad 19 43 8d 
16920 e1 cfad 1 8 43 8d e0 cf 
1 6928 ad 1 a 43 8d e2 cf 20 58 
16936 c3 20 3c 42 ad la 43 c9 
16944 ff dfl 33 35 01 09 01 85 



16952 01 4c ae a7 ae 1 b 43 ca 
16960 e0 00 dfl 0d ad 1c 43 c9 
16968 01 d0 06 a9 00 8d 1 c 43 
16976 ca bd 00 bd 8d 18 43 bd 
1 6984 00 be 8d 1 9 43 bd 00 bf 
16992 8d 1a 43 8e 1b 43 60 a9 
17000 10 2c 16 d0 f0 10a9 00 
17008 8de1 cf ad 1 8 43 8d e0 
17016 cfc9 a0 90 1a 60 ad 19 
17024 43 8de1 cf f0 0b ad 18 
17032 43 8d e0 cf c9 40 90 07 
1 7040 60 ad 1 8 43 8d e0 cfad 
17048 1a 43 8d e2 cf c9 c8 90 
17056 01 60 20 88 cc a5 02 f0 
17064 01 60 a9 08 8d 1d 43 ae 
1 7072 1 b 43 ad 1 8 43 48 ac 1 a 
17080 43 c8 ca f0 3d ce 1d 43 
17088 f0 38 98 38 fd 00 bf f0 
17096 06 c9 02 90 13 d0 eb 68 
17104 48 dd 00 bd d0 e4 ad 19 
1 71 1 2 43 fd 00 be d0 dc f0 28 
1 71 20 68 48 fd 00 bd f0 ef b0 
1 71 28 06 c9 fe 90 cd b0 e7 c9 
17136 fe d0 c7 bd 00 be d0 10 
17144 f0 c0 ae 1b 43 e8 d0 04 
1 71 52 e8 8e 1 c 43 8e 1 b 43 ca 
17160 68 9d 00 bd ad 19 43 9d 
17168 00 be 88 98 9d 00 bf 60 
17176 00 00 00 00 flfl 00 00 00 
17184 00 00 00 00 00 00 00 00 



SAVE ROUTINE 



setlfs = 


$ffba 


setnam 


= $ffbd 


save = 


$ffd8 


clrchn = 


= $ffcc 


' = 52901 


[N.B.; 


Programmers ref. 


guide 


p. 294 is wrong. 


tpsave Idx # 1 


!( 


device 


bne 


saveme 


' = 52908 


dksave Idx #8 


saveme 


Ida #1 


Idv 


#1 


jsr 


setlfs 


Ida 


$01 


and 


#%11111110 


sta 


$01 


Ida 




# endofn — hiresn 


Idx 


# < hiresn 


Idy 


# > hiresn 


jsr 


setnam 


Ida 


# <sincos 


sta 


frekzp 


Ida 


#>sincos 


sta 


frekzp + 1 



nmmm: 



# < exitpl 

# > exitpl 

# frekzp 
save 
$01 

#%00000001 
$01 
clrchn 



Idx 
Idy 

Ida 
jsr 

Ida 

ora 

sta 

jsr 

its 
hiresn txt 

"hires 
endofn = " 



PREFACE 



! input hires 
basic 
! standard 

Preface — 
definitions 
[Part 1 - 

addresses of 
modules 
welcom = $cb20 
moduli =$c000 
colour = $c088 
hires = $c098 
multi = $c110 
nrm = $c188 
lowcol = $d 60 
hicol = $c150 
plot = $c338 
Iine = $c470 
block = $c650 
paint = $ce80 
test = $cc70 
cset = $c200 
rec = $ca30 
char=$6d0 
text = $c7b0 
arc=$cd90 
angl = $cda0 
circle = $cd70 
draw=$c8a0 
rot = $cb90 
flash = $cd20 
off = $cd60 
[addresses of 

subsections 
cgsetl = $c070 
cget = $c078 
cpixad = $c288 
getxyl = Sc2e0 
getxy = $c2e8 
gptype = $c310 
bitmsk = $cfa0 
plotex = $c358 
Iineex = $c498 
ctestp = $cc88 
circ10 = $4000 



pain20 = $41d0 
!part 2 - 

addresses of 

variables 
somwer = $0002 

[work byte on 

zero page 
argho = $006a 

!fac#2 4 — byte 

work area 
frekzp = $00fb 

[four bytes 

free core 
holder = $cfe4 
bscren = $a028 
!... holds 

backup of 

low-res screen 
Stable used by 

@draw, set by 

@rot 
!.. contains 

unit vectors 

in 4 

directions 
tbxpi = $cfc4 
tbypix = $cfcc 
tbxpar = $cfd4 
tbypar = $cfd8 
drsize = Scfdc 
[tables used by 

@circle/@arc/ 

@angl{3"180 

bytes) 
sincos = $ba00 
[stack used by 

@paint (3"256 

bytes) 
pstack = $bd00. 
I'there' is 

(xthere,ythere) 

— other end 

of line in 

@line 
xthere = $cfd0 
xthrhi = $cfd1 
ythere = $cfd2 
[used by 'plot' 

routine .... 
xplot = $cfe0 
xhigh = $cfe1 
yplot = $cfe2 
ptype = $cfe3 
usebit = Scfef 
mk1=$cff1 
ink2 = $cff0 
ink3 = $cff2 
ink12 = $cff3 
inkxl = $cff6 
nkx2 = $cff7 
nkx3 = $cff8 



inkx12 = $cff9 
exitpl = $cfff 

!how to leave 

@plot s/r 
basic =0 
linejb = 1 
rtsjob = 2 
[part 3 - 

addresses of 

c64 rom 

routines 
chrget = $0073 
ierror = $0300 
infix1=$b79b 
infix = $b79e 
inposn = $aefd 
xbasic = $a7ae 
infacc = $ad8a 
facfix = $b7f7 
fixlow = $001 4 
fixhi = $0015 
instrg = $a9b1 
valtyp = $000d 
intflg = $000e 
vstrng = $ff 
forpnt = $49 
Ipart 4a— other 

c64 addresses 
lobase = $0400 

[base of 

low-res screen 
quartr = 250 
attrl = lobase 

[base of 

attribute mem 
attr2 = attrl + quar 

tr 
attr3 = attr2 + quar 

tr 
attr4 = attr3 + quar 

tr 
ch1bse = $d000 

!set1 

character rom 
ch2bse = $d800 

!set2 

character rom 
vic = $d000!vic 

chip base 
cmemry = $d800 

[colour ram 

memory 
ciachp = $dc00 
ciamsk = ciachp + $0 

d [masks 

interrupts 

(poke it) 
iset = %1 0000000 
!... with this 

bit on it says 

'set trap(s)' 



iclear = 
!... with same 

bit off it 

says 'cancel 

trap(s)' 
timera = %00000001 
ctimer = ciachp + $0 

e 
timbit = %00000001 
hibase = $2000 

[base of hires 

screen 
hitop = $4000 !top 

of hires 

screen 
[part 4b— vie 

chip registers 

and putative 

contents 
viccty = vic + $11 
scrol3 = %011 
row25 = 8 
notblk = 16 
bitmod = 32 
ignore = 1 28 
vicctx = vie + $16 
row40 == 8 
multic = 16 

unused = %1 1000000 
vicmem = vic + $18 
[low -res 

screenpointer 

in thousands 

goes in the 

top of it 
lorfld = %11 110000 
lorup= > lobase 
Iarup4 = lorup + lorup 

+ lorup + lorup 
lorptr = <lorup4 
chl up= >ch1bse 
ch2up= >ch2bse 
ch1up4 = ch1up + ch1up 

+ ch1up + ch1up 
ch2up4 = ch2up + ch2up 

+ ch2up + ch2up 
ch1u16 = <ch1up4+ < 
ch1up4 + <ch1up4 

+ <ch1up4 

ch2u16= <ch2up4+ < 

ch2up4+ <ch2up4 

+ <ch2up4 
ch1u64 = ch1u16 + ch 
1u16 + ch1u16 + ch 

1u16 
ch2u64 = ch2u16 + ch 
2u16 + ch2u16 + ch 
2u16 
ch1ptr= >ch1u64 
ch2ptr= >ch2u64 
[hires pointer 



in thousands 

goes in the 

top of it 
hiup= > hibase 
hiup4 = hiup + hiup + 

hiup + hiup 
hiup16= <hiup4 + 

<hiup4 

+ <hiup4 + 

<hiup4 
hiup64 = hiup16 = hi 

up16 + hiup16 + hi 

up16 
hirptr= >hiup64 
onmem = %00000001 
border = vie + $20 
bkgrnd = vic + $21 
[part 5 - things 

worth naming 
serror = 1 1 

["syntax 

error" 
orange = 14 

!"out-of-range" 
nybble = %1111 
ymax = 200 
xmax = 320 
xcmax = 160 

[screen width 

(multic) 
rowlen = 40 
minus1=%1 1111111 
plusl =1 



MODULE 1 



Itables 

cr=13 

int = 181 

* = 52992 ! = $cf00 

keylst txt 

"colour" 

byt cr 

txt "hires" 

byt cr 

txt "multi" 

byt cr 

txt "nrm" 

byt cr 

txt "iowcol" 

byt cr 

txt "hicol" 

byt cr 

txt "plot" 

byt cr 

txt "line" 

byt cr 

txt "block" 

byt cr 

byt 'p,'a,int 

byt cr 



txt "test" 

byt cr 

txt "cset" 

byt cr 

txt "rec" 

byt cr 

txt "char" 

byt cr 

txt "text" 

byt cr 

txt "arc" 

byt cr 

txt "angl" 

byt cr 

txt "circle" 

byt cr 

txt "draw" 

byt cr 

txt "rot" 

byt cr 

txt "flash" 

byt cr 

txt "off" 

byt cr 
jumplst wor 
colour 

wor hires 

wor multi 

wor nrm 

wor lowcol 

wor hicol 

wor plot 

wor line 

wor block 

wor paint 

wor test 

wor cset 

wor rec 

wor char 

wor text 

wor arc 

wor angl 

wor circle 

wor draw 

wor rot 

wor flash 

wor off 
keytot = * — jmplst 
[program 
txtbak = frekzp 
jmpptr = frekzp 
chragn = $0079 
txtptr = $007a 
igone = $0308 
ebasic = $a7e7 
* = modul 1 

sei 

Ida # <examin 

sta igone 

Ida #>examin 

sta igone + 1 



cli 


cpx # nybble + 1 


sta 


asl a 


cmemry,x 


cmemry + $1 00,x 


rts 


bcs cerror 


bscren + $300,x 


asl a 


sta 


Ida 


examin jsr 


rts 


inx 


asl a 


bscren + $400,x 


bscren + $600,x 


chrget 


cerror Idx 


bne hire05 


asl a 


Ida 


sta 


cmp #'@ 


# orange 


Ida somwer 


ora inkxl 


cmemry + $100,x 


cmemry +$200,x 


beq exam02 


jmp (ierror) 


Idy #0 


sta inkxl 2 


sta 


Ida 


jmp ebasic 


* = colour 


copyl sta 


jmp xbasic 


bscren + $500,x 


bscren + $700,x 


exam02 jsr 


jsr cgetl 


attr1,y 


* = nrm 


Ida 


sta 


chrget 


stx border 


sta attr2,y 


jsr chrget 


cmemry + $200,x 


cmemry + $300,x 


Idx txtptr 


jsr cget 


sta attr3,y 


Ida 


sta 


inx 


stx txtbak 


stx bkgmd 


sta 


#lorptr + ch1ptr 


bscren + $600,x 


bne cset24 


Idx txtptr +1 


jmp xbasic 


attr4+quartr-$ 


+ onmem 


Ida 


Idx #0 


stx txtbak + 1 


scrptr = frekzp + 2 


100,y 


sta vicmem 


cmemry + $300,x 


cset28 Ida 


Idy #0 


* = hires 


iny 


nrm02 Ida 


sta 


bscren + $800,x 


Idx #0 


jsr cgetl 


bne copyl 


# scrol3 + row25 


bscren + $700,x 


sta attrl, x 


exam03 cmp 


txa 


Ida 


+ notblk + ignore 


inx 


Ida 


keylst,x 


asl a 


# unused + row40 


sta viccty 


bne nrm10 


bscren + $900, x 


bne exam04 


asl a 


sta vicctx 


Ida 


jmp cset30 


sta 


exam07 inx 


asl a 


jmp multi5 


# unused + row40 


' = csel 


attrl + $1 00,x 


Ida #cr 


asl a 


* = multi 


sta vicctx 


jsr infixl 


Ida 


cmp keylst,x 


sta somwer 


jsr cgetl 


Ida $01 


txa 


bscren + $a00,x 


beq exam10 


jsr cget 


stx inkl 


and #%11111110 


cmp #0 


sta 


jsr chrget 


txa 


jsr cget 


sta $01 


beq cset0 


attrl +$200,x 


cmp keylst,x 


ora somwer 


stx ink.2 


Idx #0 


cmp #1 


Ida 


beq exam07 


sta somwer 


jsr cget 


Ida attr1,x 


beq csetl 


bascren + $b00,x 


Ida txtbak 


Ida # > hibase 


stx ink.3 


sta 


cmp #2 


sta 


sta txtptr 


sta scrptr +1 


Ida 


bscren + $800,x 


beq cset2 


attrl +$300,x 


Ida txtbak + 1 


Ida #< hibase 


# unused + multic 


nrm04 Ida 


Idx serror 


inx 


sta txtptr +1 


sta scrptr 


+ row40 


attr1+$100,x 


jmp (ierror) 


bne cset28 


exam04 Ida # cr 


zer256ldy #0 


sta vicctx 


sta 


cset0 Ida 


cset30 Ida 


cmp keylst,x 


zerl sta 


Ida ink2 


bscren + $900,x 


#lorptr + ch1ptr 


%00000001 


beq exam05 


(scrptr),y 


asl a 


Ida 


+ onmem 


ora #$01 


inx 


iny 


asl a 


attrl +$200,x 


sta vicmem 


sta $01 


bne exam04 


cpy #0 


asl a 


sta 


bne cset01 


zbasic jmp 


exam05 inx 


bne zerl 


asl a 


bscren + $a00,x 


csetl Ida 


xbasic 


iny 


inc scrptr + 1 
Idx scrptr +1 
cpx # > hitop 
bne zer256 


ora inkl 

sta ink12 

multiS Ida # $ff 


Ida 

attrl +$300,x 
sta 


#lorptr + ch2ptr 
+ onmem 
cset01 sta 




iny 

jsr chragn 

cpy # keytot 


[Module 4 




sta inkxl 


bscren + $b00,x 


vicmem 




bne exam03 


Ida 


sta inkx2 


inx 


Ida bitmod 


" = cpixad 


exam99 Idx 


#scrol3 + row25 


sta inkx3 


bne nrm04 


bit viccty 


scrnad = frekzp + 2 


# serror 


+ notblk + bitmod 


sta inkxl 2 


Idx #0 


beq zbasic 


zxchar = frekzp 


jmp (ierror) 


sta viccty 


Ida somwer 


nrm07 Ida 


jmp nrm02 


zychar = frekzp + 1 


exam10 Ida 


Ida vicmem 


sta bkgrnd 


bscren,x 


cset2 Ida 


Ida #multic 


jmplst,y 


and #lorfld 


multi9 jmp 


sta lobase,x 


#scrol3 + row25 


bit vicctx 


sta jmpptr 


ora # hirptr 


xbasic 


Ida 


+ notblk + bitmod 


beq phires 


Ida jmplst + 1,y 


sta vicmem 


' = hicol 


bscren + $100,x 


sta viccty 


asl xplot 


sta jmpptr + 1 


Idx #0 


jsr chrget 


sta 


Ida vicmem 


rol xhigh 


■jmp (jmpptr) 


hire05 Ida 


jmp multi5 


lobase + $100,x 


and # lorfld 


ypixpo = scrnad 




lobase,x 




Ida 


ora # hirptr 


phires Ida xplot 




sta bscren,x 
Ida 




bscren + $200,x 
sta 


sta vicmem 
Ida $01 


and #%111 
eor #%111 


MODULE 2 


MODULE 3 




lobase + $100,x 




lobase + $200,x 


and #%11111110 


sta usebit 


* = cget1 


sta 


* = lowcol 


Ida 


sta $01 


Ida yplot 


jsr infixl 


bscren + $100,x 


jsr cgetl 


bscren + $300,x 


Idx #0 


and #%111 


cpx # nybble + 1 


Ida 


stx inkxl 


sta 


cset24 Ida 


asl a 


bcs cerror 


lobase + $200,x 


jsr cget 


lobase + $300,x 


bscren + $400, x 


asl a 


rts 


sta 


stx inkx2 


inx 


sta cmemry,x 


sta ypixpo 


* = cget 


bscren + $200,x 


jsr cget 


bne nrm07 


Ida 


plot10 Ida xhigh 


jsr inposn 


Ida 


stx inkx3 


Idx #0 


bscren + $500,x 


Isr a 


jsr infix 


lobase + $300,x 


Ida inkx2 




nrm! Ida 


sta 


Ida xplot 



Imcwmcooi, 



ror a 


bcc gpty02 


pmulti Ida 


Ida ink3 


ydishi = $0346 


sec 




Isr a 


perror pla 


usebit 


sta (scrnad),y 


* = line 


sbc xthere 




Isr a 


pla 


Isr a 


bpl plot78 


Ida #linejb 


sta xdist 




sta zxchar 


Idx orange 


sta usebit 


plot64 nop 


sta exitpl 


Ida xhigh 




Ida yplot 


jmp (ierror) 


Ida ptype 


Ida inkx12 


jsr getxyl 


sbc xthrhi 




Isr a 


gpty02 stx ptype 


cmp #0 


sta (scrnad),y 


Ida fixlow 


sta xdishi 




Isr a 


rts 


bne plot32 


clc 


sta xplot 


linel 6 Ida ydiag 




Isr a 


* = plot 


jsr pOmlti 


Ida scrnad + 1 


Ida fixhi 


cmp #minus1 




sta zychar 


Ida # basic 


jmp plot50 


adc 


sta xhigh 


beq linel 8 




Isr a 


sta exitpl 


plot32 cmp #4 


# >memry- > 


stx yplot 


Ida ydiff 




ror scrnad 


jsr getxyl 


bne plot34 


attrl 


jsr getxy 


sta ydist 




Isr a 


Ida fixlow 


Idy #0 


sta scrnad + 1 


Ida fixlow 


Ida #0 




rof scrnad 


sta xplot 


Idx usebit 


Ida inkx3 


sta xthere 


sta ydishi 




clc 


Ida fixhi 


Ida (scrnad),y 


sta (scrnad), y 


Ida fixhi 


jmp Iine20 




adc zychar 


sta xhigh 


eor allmul,x 


plot78 Ida 


sta xthrhi 


linel 8 Ida yplot 




adc # > hibase 


stx yplot 


sta (scrnad),y 


exitpl 


stx ythere 


sec 




sta scrnad + 1 


jsr gptype 


jmp plot50 


beq plot80 


jsr gptype 


sbs ythere 




Ida zxchar 


jmp plotex 


plot34 cmp # 1 


rts 


Ida xthere 


sta ydist 




asl a 


* = plotex 


bne plot36 


plot80 jmp 


sec 


Ida #0 




asl a 


jsr cpixad 


jsr p0mlti 


x basic 


sbc xplot 


sta ydishi 




asl a 


Ida yplot 


ora onmul1,x 


p0mltildy #0 


sta xdiff 


Iine20 Ida xdist 




bcc plod 8 


cmp # ymax + 1 


sta (scrnad),y 


Idx usebit 


Ida xthrhi 


sec 




inc scrnad + 1 


bcc plot04 


jmp plot50 


Ida (scrnad), y 


sbc xhigh 


sbc ydist 




clc 


jmp plot78 


plot36 cmp #2 


and offmul,x 


sta xdiffh 


Ida xdishi 




plot18 adc 


plot04 Ida xhigh 


bne plot38 


sta (scrnad), y 


bcs Iine06 


sbc ydishi 




scrnad 


bmi plot06 


jsr p0mlti 


rts 


Ida # minus! 


bcs me 2 2 




sta scrnad 


cmp #>max 


ora onmul2,x 


* = bitmsk 


sta xdiag 


Ida #0 




bcc plot20 


bcc plot08 


sta (scrnad),y 


byt 


sta xdiagh 


sta xpara 




inc scrnad + 1 


bne plot06 


jmp plot50 


$01,$02,$04,$08, 


jmp Iine08 


sta xparah 




plot20 rts 


Ida xplot 


plot38 jsr 


$10,$20,$40, 


Iine06 Ida 


Ida ydiag 




" = getxyl 


cmp # <xmax 


p0mlti 


$80 


# <plus1 


sta ypara 




jsr chrget 


bcc plot08 


ora onmul3,x 


offmsk byt 


sta xdiag 


Ida xdist 




jmp gexy01 


plot06 jmp 


sta (scrnad ),y 


$fe,$fd,$fb,$f7, 


Ida # > plusl 


Idx ydist 




" = getxy 


plot78 


plot50 Ida 


$ef,$df,$bf, 


sta xdiagh 


sta ydist 




jsr inposn 


piot08 Ida 


scrnad + 1 


$7f 


Iine08 Ida 


stx xdist 




gexy01 jsr 


# multic 


eor # > hibase 


offmul byt 


ythere 


Ida xdishi 




infacc 


bit vicctx 


sta scrnad + 1 


$fc,$f3,$cf,$3f 


sec 


Idx ydishi 




jsr facfix 


bne pmulti 


Isr scrnad + 1 


allmul byt 


sbc yplot 


stx xdishi 




Ida fixhi 


Ida ptype 


ror scrnad 


$03,$0c,$30,$c0 


sta ydiff 


sta ydishi 




bmi perror 


cmp #0 


Isr scrnad + 1 


onmull byt 


bcs Iine10 


bigdis = $0343 




cmp # > xmax 


bne plot24 


ror scrnad 


$02,$08,$20,$80 


Ida #minus1 


bigdhi = $0344 




bcc gexy02 


Idy #0 


Isr scrnad + 1 


onmul2 byt 


sta ydiag 


tinyd = $0345 




bne perror 


Idx usebit 


ror scrnad 


$01,$04,$10,$40 


jmp linel 2 


tinyhi = $0346 




Ida fixlow 


Ida (scrnad),y 


Ida #>attr1 


onmul3 byt 


linel Ida 


dodiag = $0347 




cmp # <xmax 


and offmsk,x 


eor scrnad + 1 


$03,$0c,$30,$c0 


# plusl 


dodihi = $0348 




bcs perror 


sta (scrnad),y 


sta scrnad + 1 




sta ydiag 


stepct = $0349 




gexy02 jsr 


jmp plot50 


Idy #0 




linel 2 Ida xdiag 


stephi = $034a 




ln/iAni n r r 1 




inposn 


plot24 cmp # 2 


Ida inkx12 


■MODULES j 


sta xpara 


xnow = $cfd0 




jsr infix 


bne plot26 


cmp #$ff 




Ida xdiagh 


xnowhi = $cfd1 




cpx xymax + 1 


p2hres Idy # 


bne plot64 


xdiff = $033c 


sta xparah 


ynow = $cfd2 




bcs perror 


Idx usebit 


Ida # multic 


xdiffh = $033d 


Ida #0 


Iine22 Ida 




rts 


Ida (scrnad), y 


bit vicctx 


ydiff = $033e 


sta ypara 


bigdhi 




" = gptype 


eor bitmsk,x 


beq plot78 


xdiag = $033f 


Ida xdiag 


ror a 




jsr inposn 


sta (scrnad), y 


Ida ink12 


xdiagh = $034b 


cmp #minus1 


Ida bigdis 




jsr infix 


jmp plot50 


sta (scrnad), y 


ydiag = $0340 


beq linel 4 


ror a 




cpx #3 


plot26ldy #0 


clc 


xpara = $0341 


Ida xdiff 


sta dodiag 




bcc gpty02 


Idx usebit 


Ida scrnad + 1 


xparah = $034c 


sta xdist 


Ida #0 




Ida #multic 


Ida (scrnad), y 


adc 


ypara = $0342 


Ida xdiffh 


sta stepct 




bit vicctx 


ora bitmsk,x 


# >cmemry— > 


xdist = $0343 


sta xdishi 


sta stephi 




beq perror 


sta (scrnad),y 


attrl 


xdishi = $0344 


jmp linel 6 


sta dodihi 




cpx #5 


jmp plot50 


sta scrnad + 1 


ydist = $0345 


linel 4 Ida xplot 


Ida xplot 
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sta xnow 

Ida xhigh 

sta xnowhi 

Ida yplot 

sta ynow 

Iine26 Ida xnow 

sta xplot 

Ida xnowhi 

sta xhigh 

Ida ynow 

sta yplot 

jsr plotex 

Ida dodiag 
clc 

adc tinyd 

sta dodiag 

Ida dodihi 

adc tiny hi 

sta dodihi 

Ida dodiag 
sec 

a be bigdis 

Ida dodihi 

sbc bigdhi 

bec Iine28 

Ida dodiag 
sec 

sbc bigdis 

sta dodiag 

Ida dodihi 

sbc bigdhi 

sta dodihi 

Ida xnow 
clc 

adc xdiag 

sta xnow 

Ida xnowhi 

adc xdiagh 

sta xnowhi 

Ida ynow 
clc 

adc ydiag 

sta ynow 

jmp Iine30 

Iine28 Ida xnow 
clc 

adc xpara 

sta xnow 

Ida xnowhi 

adc xpara h 

sta xnowhi 

Ida ynow 
clc 

adc ypara 

sta ynow 

Iine30 inc 
stepct 

bne Iine31 

inc stephi 

Iine31 Ida 
stephi 



emp bigdhi 
bes Iine32 
jmp Iine26 

Iine32 Ida 

stepct 

emp bigdis 

bes Iine34 

jmp Iine26 

Iine34 Ida 
exit pi 
emp #linejb 
bne Iine36 
jmp xbasic 

Iine36 rts 



MODULE 6 



' = block 
Ida # rtsjob 
sta exitpl 
jsr getxyl 
Ida fixlow 
sta xlftlo 
Ida fixhi 
sta xlfthi 
stx ytop 
jsr getxy 
Ida fixlow 
sta xrgtlo 

Ida fixhi 

sta xrgthi 

stx ybottm 

jsr gptype 

Ida ybottm 
sec 

sbc ytop 

beq blok99 

bec blok99 

Ida ytop 

sta ynow 

block20 Ida 
xlftlo 

sta xplot 

Ida xlfthi 

sta xhigh 

Ida xrgtlo 

sta xthere 

Ida xrgthi 

sta xthrhi 

Ida ynow 

sta ythere 

sta yplot 

emp ybottm 

beq blok99 

inc ynow 

jsr linex 

jmp blok20 

blok99 jmp 
xbasic 

xlftlo byt 



xlfthi byt 
ytop byt 



xrgno uyi v 
xrgthi byt 


ybottm byt 


ynow 


syt 


MODULE 7 i 


* = char 


csize = 


8 


Ida 


#linejb 


sta 


exitpl 


jsr 


getxyl 


Ida 


fixlow 


sta 


xchrlo 


Ida 


fixhi 


sta 


xcharh 


stx 


ychar 


jsr 


mposn 


jsr 


infix 


stx 


pokeco 


jsr 


gptype 


jsr 


cget 


txa 




beq 


char08 


sta 


height 


jsr 


charl 


char08 


jmp 


xbasic 


char10 Ida 


pokeco 


asl 


a 


asl 


a 


asl 


a 


sta 


char20 + 1 


Ida 


pokeco 


Isr 


a 


Isr 


a 


Isr 


a 


Isr 


a 


Isr 


a 


charl 1 


ora 


# >ch1bse 


sta 


char20 + 2 


char14ldx #0 


start at byte 


Ida 


etimer 


and 




#%11111111- 


timbit 


sta 


ctimer 


Ida 


$01 


and 


#5611111011 


sta 


$01 


char20 Ida 


$ffff,x 


sta 


pattrn,x 


mx 




cpx 


# csize 



bne char20 

Ida $01 

ora #%0000010£: 

sta $01 

inc ctimer 

Idx #0 
char22 stx 

rowent 

Ida pattm,x 

jsr char30 

Idx rowent 

inx 

cpx # csize 

bne char22 
char24 rts 
char30 sta 
rpatrn 

Idx height 

stx thisct 
char32 Ida 
xchrlo 

sta xnowlo 

sta xplot 

Ida xcharh 

sta xnowhi 

sta xhigh 

Idy # csize 
char34 sty 
bitcnt 

Ida ychar 

sta yplot 

Ida rpatrn 

and bitmsk — 1,y 

beq char36 

jsr plotex 
char36 Ida 
xnowlo 

clc 

adc #1 

sta xnowlo 

sta xplot 

Ida xnowhi 

adc #0 

sta xnowhi 

sta xhigh 

Idy bitcnt 

dey 

bne char34 

inc ychar 

dec thisct 

bne char32 
char39 rts 
thisct byt 
rpatrn byt 
rowent byt 
bitcnt byt 
xchrlo byt 
xcharh byt 
xnowlo byt 
xnowhi byt 
ychar byt 



height byt 
pokeco byt 
pattrn = $02a7 
!89 byte work 
area 
ctrla = $01 
ctrlb = $02 
rvson = $12 
rvsoff = $92 
* = text 
Ida #linejb 

exitpl 

getxyl 

fixlow 

xchrlo 

fixhi 

xcharh 

ytext 

#vstrng 

valtyp 

intflg 

# < argho 

# > argho 
forpnt 
forpnt + 1 
txtptr 
inposn 
instrg 
argho 
txtlen 
argho + 1 
text12 + 1 
argho + 2 
text12 + 2 
gptype 
r cget 



sta 

jsr 

Ida 

sta 

Ida 

sta 

stx 

Ida 

sta 

sta 

Ida 

Idx 

sta 

stx 

stx 

jsr 

jsr 

Ida 

sta 

Ida 

sta 

Ida 

sta 

jsr 



txa 
beq 
sta 

jsr 
stx 
jmp 



text09 
height 
cget 

txtwid 
textl 



text09 jsr infix 
jmp xbasic 
textl Idx 
txtlen 
bne textl 1 
jmp text95 
textl 1 Idx 
txtptr 
textl 2 Ida 
$ffff,x 
sta txbyte 



emp 

beq 

emp 

beq 

emp 

bes 

emp 

beq 



# rvson 
textl 4 

# rvsoff 
textl 6 
#' +0 
text20 

# ctrla 
textl 7 



emp # ctrlb 
beq textl 8 
jmp text90 
textl 4 Ida 

#%1 0000000 
sta revflg 
jmp text90 
textl 6 Ida #0 
sta revflg 
jmp text90 
textl 7 Ida 

# >ch1bse 
sta char11+1 
jmp text90 
textl 8 Ida 

#>ch2bse 
sta charl 1 + 1 
jmp text90 
text20 and 

#%1 0000000 
Isr a 
sta shift 
txbyte 

#%00111111 
shift 
revffg 
pokeco 
txtptr 
ytext 
ychar 
charl 
xchrlo 



txtwid 
xcharlo 
xcharh 
#0 

xcharh 



Ida 

and 

ora 

ora 

sta 

stx 

Ida 

sta 

jsr 

Ida 

clc 

adc 

sta 

Ida 

adc 

sta 
text90 Idx 
txtptr 

inx 

cpx txtlen 

beq text92 

stx txtptr 

jmp textl 1 
text92 Ida 

# >ch1bse 

sta charl 1 -t- 1 
text95 jmp 
xbasic 
ytext byt 
txtwid byt 
revflg byt 
txtptr byt 
txtlen byt 
txbyte byt 
shift byt 
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* = draw 
drxlow = holder 
drxhi = holder + 1 
drawy = holder + 2 
drcode = holder + 3 
bytsdn = holder+4 
drawln = holder + 5 
todo = holder +6 
ypart = holder + 7 
xpart = holder + 8 
jsr chrget 
Ida #linejb 
sta exitpl 
Ida # vstrng 
sta valtyp 
sta intflg 
Ida # orgho 
Idx # >argho 
sta forpnt 
stx forpnt + 1 
stx bytsdn 
jsr instrg 
Ida argho 
sta drawl n 
Ida argho + 1 
sta draw22 + 1 
Ida argho + 2 
sta draw22 + 2 
jsr getxy 
Ida fixlow 
sta drxlow 
Ida fixhi 
sta drxhi 
stx drawy 
jsr gptype 
Idy #$80 
sty ypart 
sty xpart 
draw20 Idy 
drsize 
sty todo 
bitop = $2c 
draw21 Ida 
# bitop 
sta draw61 
Idx bytsdn 
cpx drawln 
bpl draw49 
draw22 Ida 
$ffff,x 
sta drcode 
cmp #'9 
beq draw49 
cmp #'0 
beq draw50 
cmp #'1 
beq draw51 
cmp #'2 
beq draw27 
cmp #'3 
beq draw28 



cmp # '5 
beq draw50 
cmp # '6 
beq draw51 
cmp #'7 
draw27 beq 
draw52 
cmp # '8 
draw28 bne 
draw48 
jmp draw53 
draw48 jmp $cee1 
draw49 jmp 
xbasic 
xlpixl = tbxpix 
x2pixl = 

tbxpix + 2 
x3pixl = 

tbxpix +4 
x0pixl = 

tbxpix + 6 
ylpixl = tbypix 
y2pixl = 

tbypix + 1 
y3pixl = 

tbypix + 2 
y0pixl = 

tbypix + 3 
x3part — tbxpar 
xOpart = 

tbxpar + 1 
x1 part = 

tbxpar +2 
x2part = 

tbxpar + 3 
y3part = tbypar 
y0part = 

tbypar + 1 
y1 part = 

tbypar + 2 
y2part = 

tbypar + 3 
draw50 Ida xpart 
clc 

adc x0part 
sta xpart 
Ida drxlow 
adc x0pixl 
jsr switox 
adc x0pixl + 1 
sta drxhi 
Ida ypart 
clc 

adc y0part 
sta ypart 
Ida drawy 
adc y0pixl 
jmp draw59 
draw51 Ida xpart 
clc 
adc x1 part 



sta 
Ida 

adc 

jsr 

adc 

sta 

Ida 

clc 

adc 

sta 

Ida 

adc 

jmp 



xpart 

drxlow 

xlpixl 

switox 

x1 pixl + 1 

drxhi 

ypart 

y1 part 

ypart 
drawy 
ylpixl 
draw59 



draw52 Ida xpart 
clc 



adc 

sta 

Ida 

adc 

jsr 

adc 

sta 

Ida 

clc 

adc 

sta 

Ida 

adc 

jmp 



x2part 

xpart 

drxlow 

x2pixl 

switox 

x2pixl + 1 

drxhi 

ypart 

y2part 

ypart 

drawy 

y2pixl 
draw59 



draw53 Ida xpart 
clc 



adc 

sta 

Ida 

adc 

jsr 

adc 

sta 

Ida 

clc 

adc 

sta 

Ida 

adc 



x3part 

xpart 

drxlow 

xSpixl 

switox 

x3pixl + 1 

drxhi 

ypart 



y3part 
ypart 
drawy 
y3pixl 
draw59 cmp drawy 
beq draw60 
sta drawy 
Ida #jsrop 
sta draw61 
draw60 Ida 
drcode 
cmp #'4 
draw62 
drxlow 
xplot 
drxhi 
xhigh 
drawy 
yplot 
bytsdn 
sr plotex 



bmi 
Ida 
sta 
Ida 
sta 
Ida 
sta 
stx 
draw61 



draw62 dec todo 

beq draw64 

jmp draw21 
draw64 inc 
bytsdn 

jmp draw20 
jsrop = $20 
switox php 

cmp drxlow 

beq swix99 

pha 

Ida # jsrop 

sta draw61 

pla 

sta drxlow 
swix99 Ida drxhi 

pip 

rts 

end 



MODULE 9 



= rec 

Ida #rtsjob 

sta exitpl 

jsr getxyl 

Ida fixlow 

sta xleft 

Ida fixhi 

sta xlfthi 

stx ytop 

jsr getxy 

Ida fixlow 

sta width 

Ida fixhi 

sta widhi 

stx rhight 

jsr gptype 

Ida xleft 

clc 

adc width 

sta xright 

Ida xlfthi 

adc widhi 

sta xrthi 

cmp #>xmax 

bmi rect04 

bne rect09 

Ida xright 

cmp # < xmax 

bpl rect09 
rect04 Ida ytop 

clc 

adc rhight 

sta ybottm 

bcs rect09 

cmp #ymax + 1 

bcc recti 
rect09 Idx 
# serror 



jmp 


(ierror) 


recti Ida xleft 


sta 


xplot 


Ida 


xlfthi 


sta 


xhigh 


Ida 


ytop 


sta 


yplot 


sta 


ythere 


Ida 


xright 


sta 


xthere 


Ida 


xrthi 


sta 


xthrhi 


jsr 


lineex 


Ida 


xright 


sta 


xplot 


sta 


xthere 


Ida 


xrthi 


sta 


xhigh 


sta 


xthrthi 


Ida 


ybottm 


sta 


ythere 


Ida 


ytop 


sta 


yplot 


isr 


lineex 


Ida 


ybottm 


sta 


yplot 


sta 


ythere 


Ida 


xleft 


sta 


xthere 


Ida 


xlfthi 


sta 


xthrhi 


Ida 


xright 


sta 


xplot 


Ida 


xrthi 


sta 


xhigh 


jsr 


lineex 


Ida 


ytop 


sta 


ythere 


Ida 


ybottm 


sta 


yplot 


Ida 


xleft 


sta 


xplot 


sta 


xthere 


Ida 


xlfthi 


sta 


xhigh 


sta 


xthrhi 


jsr 


lineex 


jmp 


xbasic 


xleft = 


lolder 


xlfthi = 


holder + 1 


ytop = 


holder + 2 


width = 


= holder + 3 


widhi = 


holder + 4 


rhight - 


= holder + 5 


xright = 


= holder + 6 


xrthi = 


holder + 7 


ybottm 


= holder + 8 


[MODULE 10 II 


topbsc 


= hibase — 1 



jsr 
Ida 



prtstr = $ab1e 
prtnum = $bdcd 
bytefr = Se460 
initio = $e51 8 
chrout = $ffd2 
fretop=$33 
memsiz = $37 
vartab = $2d 
blue = 6 
grey3 = 15 
bluprt = 31 
rvson = 18 
" = welcom 

Ida # < topbsc 

sta fretop 

sta memsiz 

Ida # > topbsc 

sta fretop + 1 

sta memsiz +1 
initio 
# blue 

sta border 

Ida # grey3 

sta bkgrnd 

Idx #0 

init02 Ida 
init04,x 

jsr chrout 

inx 

cpx 

#init06-init04 

bne init02 

Ida memsiz 

sec 

sbc vartab 

tax 

Ida memsiz + 1 

sbc vartab + 1 

jsr prtnum 

Ida # < bytefr 

Idy #> bytefr 

jsr prtstr 

jmp moduli 
inir.04 byt 
bluprt 

byt rvson 

txt "input 

hires graphics" 

txt " 
init06 = " 
rotang = exitpl 
angmax = 7 
* = rot 

jsr infixl 

cpx #angmax + 1 

bpl rotn09 

stx rotang 

txa 

asl a 

tax 















bpl rotn10 


xpix2 wor 


clc 


flash9 jmp 


sta anglhi 


jsr infacc 


rotn09 Ida 


m,m,0,0,p,0,0,m 


adc #1 


inttim 


jsr parms2 


jsr facfix 


# serror 


ypix0 byt n,n 


adc #0 


colorf byt $ff 


beq errorx 


avalid Ida fixhi 


jmp (ierror) 


ypix3 byt 0,0 


sta jiffes 


jiffes byt 1 


angl04 Ida 


cmp #0 


rotn10 Ida 


ypix! byt p,0 


cmp intrvl 


intrvl byt 


xthere 


beq avalix 


xpix0,x 


ypix2 byt 


bne flash9 


cinv = $0314 


sta xplot 


Ida fixlow if 


sta tbxpix 


0,n,n,n,0,0,p,0 


Ida #0 


* = flash 


Ida xthrhi 


sen > 0,jun > = 1 04 


Ida xpixfl + 1 ,x 


r = $b6 


sta jiffes 


jsr cgetl 


sta xhigh 


cmp # <360 


sta tbxpix + 1 


s = $4b 


Ida frekzp 


stx colorf 


Ida ythere 


bpl avali2 


Ida xpix2.x 


xparO = * 


pha 


jsr inposn 


sta yplot 


avalix rts 


sta tbxpix + 4 


yPar2 byt 0,s 


Ida frekzp + 1 


jsr infix 


jsr plotex 


avali2 Ida 


Ida xpix2 + 1,x 


xpar2 = * 


pha 


stx intrvl 


bitop = $2c 


fixlow 


sta tbxpix + 5 


yparl byt 0,r 


Ida frekzp + 2 


Ida #0 


Ida # bitop 


sec 


Ida xpix3,x 


xparl = ' 


pha 


sta jiffes 


jsr circ20 


sbc # < 360 


sta tbxpix + 6 


ypar3 byt 0,r 


Ida frekzp + 3 


Ida cinv 


jmp lineex 


sta fixlow 


Ida xpix3 + 1,x 


xpar3 = ' 


pha 


cmp # <f!ash0 


parmsl Ida 


Ida fixhi 


sta tbxpix +7 


ypar0 byt 


tya 


beq flashx 


# linejb 


sbc #>360 


Ida xpixl.x 


0,s,0,s,0,r,0,r 


pha 


Ida 


sta exitpl 


sta fixhi 


sta tbxpix + 2 
Ida xpixl + 1 ,x 
sta tbxpix + 3 




Ida #961111111 +We 

#%1111111 +iclf 


jsr getxyl 
Ida fixlow 
sta xthere 


L HJ 


■MODULE 11 


bne avalid 
rts 
• = circ10 




fj l\i i > > i i i i i '**■ 

ar 


sta ciamsk 


Idx rotang 


result = somwer 


sta ciamsk 


Ida #<flash0 


Ida fixhi 


Ida angll 


Ida ypix0,x 


* = test 


Ida #0 


sta cinv 


sta xthrhi 


sta angle 


sta tbypix 


jsr getxyl 


sta loresp 


Ida #>flash0 


stx ythere 


jsrop = $20 


Ida ypix1,x 


Ida fixlow 


sta colorp 


sta cinv + 1 


rts 


Ida # jsrop 


sta tbypix + 1 


sta xplot 


Ida # > lobase 


Ida 


parmsc Ida # 


jsr circ20 


Ida ypix2,x 


Ida fixhi 


sta loresp + 1 


# iset + timera 


sta angll 


jsr circ31 


sta tbypix + 2 


sta xhigh 


Ida #>cmemry 


sta ciamsk 


sta anglhi 


Ida # > sincos + 1 


Ida ypix3,x 


stx yplot 


sta colorp + 1 


flashx jmp 


sta angend + 1 


jsr circ30 


sta tbypix + 3 


jsr ctestp 


Idy #0 


xbasic 


sta angehi + 1 


jsr circ31 


Ida xparO.x 


jmp xbasic 


flash3 Ida 


* = off 


Ida # plusl 


Ida #> sincos +2 


sta tbxpar 


* = ctestp 


{colorp),y 


jsr chrget 


sta incrmt + 1 


jsr circ30 


Ida xpar1,x 


jsr cpixad 


and # nybble 


Ida #0 


rts 


jsr circ31 


sta tbxpar + 1 


Idy #0 


cmp colorf 


sta intrvl 


parmsa jsr 


Ida angll 


Ida xpar2,x 


Ida vicctx 


bne flash4 


jmp xbasic 


gangle 


clc 


sta tbxpar +2 


and # multic 


Ida (loresp),y 


end 


Ida fixlow 


incrmt adc #$ff 


Ida xpar3.x 


bne test20 


eor #$80 




sta angll 


sta angll 


sta tbxpar + 3 


Idx usebit 


sta (loresp),y 
flash4 iny 




Ida fixhi 
sta anglhi 
jsr gangle 


bcc cird 4 

inc anglhi 
cird 4 Idx 


Ida ypar0,x 


Ida bitmsk,x 


■ MODULE 12 1 


sta tbypar 


testl and 


bne flash6 




Ida yparl ,x 


(frekzp + 2),y 


inc loresp + 1 


* = circle 


Ida fixlow 


anglhi 


sta tbypar + 1 


beq testl 4 


inc colorp + 1 


jsr parmsl 


sta angend + 1 


beq cird 6 


Ida ypar2,x 


testl 2 Ida 


flash6 cpy 


jsr parmsc 


Ida fixhi 


cmp # <360 


sta tbypar +2 


#plus1 


# < lorend 


arc04 jsr parms2 


sta angehi + 1 


bcc cird 6 


Ida ypar3,x 


testl 4 sta 


bne flash3 


beq errorx 


jsr inposn 


sbc #<360 


sta tbypar + 3 


result 


Ida loresp + 1 


jsr cird 


jsr infix 


dec anglhi 


jsr inposn 


rts 


cmp # > lorend 


jmp xbasic 


stx incrmt + 1 


sta angll 


jsr infix 


test20 ida 


bne flash3 


errorx jmp 


rts 


cird 6 sec 


stx drsize 


usebit 


pla 


(ierror) 


parms2 jsr getxy 


angend sbc #$ff 


txa 


Isr a 


tay 


" = arc 


Ida fixlow 


bcc circ10 


bne rotn90 


tax 


pla 


jsr parmsl 


sta xrad 


sbc incrmt+1 


jmp rotn09 


Idy #0 


sta frekzp + 3 


jsr parmsa 


Ida fixhi 


bcs cird 


rotn90 jmp 


Ida bitmsk + 32,x 


pla 


jmp arc04 


sta xradhi 


Ida anglhi 


xbasic 


bne testl 


sta frekzp + 2 


* = angl 


stx yrad 


angehi cmp #$ff 


p = 1 


inttim = $ea31 


pla 


angl02 jsr 


jsr gptype 


bne cird 


m = %1111111111111 


loresp = frekzp 


Ida frekzp + 1 


parmsl 


valid Ida xrad 


rts 


111 


colorp = frekzp + 2 


pla 


jsr gangle 


bne validS 


cospve = 1 


n=%11111111 


lorend = atlr4 + qua 


sta frekzp 


Ida fixlow 


Ida yrad 


cosneg = 


xpix0 wor 0,0 


rtr 


Ida 


sta angM 


va!id8 rts 


sinpve = 


xpix3 wor p,0 


flash© Ida 


# iset + timera 


sta angle 


gangle jsr 


sinneg = 1 


xpix! wor 0,m 


jiffes 


sta ciamsk 


Ida fixhi 


inposn 


circ20 sta 



circ57 


tay 


pindex Idy #$05 


* = paint 


cmp #1 


sbc 


Ida anglhi 


Ida prod hi 


pla 


Ida # linejb 


bne off2 


pstack + $200,x 


bne circ26 


adc xthrhi 


sta ytabl,y 


sta exitpl 


Ida #0 


beq xspot 


Ida angle 


beq circ39 


xcoord Ida # $ff 


Idx #1 


sta oflag 


cmp #2 


cmp #90 


cmp # > xmax + 1 


sta xtabl,y 


stx stack 


dex 


bcc xnear 


bcs circ22 


bcs circ44 


dey 


Idx # dummy 


off2 Ida 


bne ontol 


Idx #sinpve 


cpy #<xmax 


bpl circ58 


stx pstack + $200 


pstack,x 


xspot pla 


Idy #cospve 


bcc circ39 


Idy #5 


jsr getxyl 


sta xpin 


pha 


bne circ28 


jmp circ80 


circ58 sty 


Ida fixlow 


Ida 


cmp pstack,x 


circ22cmp #180 


circ35 Ida 


pindex + 1 


sta xpin 


pstack + $100,x 


bne ontol 


bcs circ24 


xthere 


circ80 Ida angle 


Ida fixhi 


sta xpinhi 


onto5 Ida xpinhi 


Ida #<270 


sec 


sec 


sta xpinhi 


Ida 


sbc 


cic 


sbc prodlo 


sbc #90 


stx ypin 


pstack + $200,x 


pstack + $100,x 


sbc angle 


tay 


bcs circ82 


jsr gptype 


sta ypin 


bne ontol 


sta angle 


Ida xthrhi 


adc #180 


jmp pain20 


stx stack 


beq onto20 


Idx #sinpve 


sbc prod hi 


circ82 sta angle 


* = pain20 


rts 


xnear pla 


Idy # cosneg 


bcc circ80 


Ida $01 


Ida $01 


probe Ida 


pha 


beq circ28 


circ39 sta xhigh 


ora #%00000001 


and #%11111110 


#multic 


sbc pstack,x 


circ24 Idx 


sty xplot 


sta $01 


sta $01 


bit vicctx 


beq onto5 


#sinneg 


circ40 Ida #180 


rts 


pain22 inc ypin 


beq probe2 


bcs onto6 


Ida angle 


cic 


mulply Ida #0 


jsr probe 


Ida #0 


cmp #%11111110 


sec 


sbc angle 


sta prodlo 


dec ypin 


sta xhigh 


bcc ontol 


sbc #180 


tax 


sta prodhi 


Ida xpin 


Ida xpin 


bcs onto5 


sta angle 


circ42 Ida 


mpier Idx 


bne pain25 


sta xplot 


onto6 cmp 


Idy # cosneg 


$ff00,x 


#$ff 


dec xpinhi 


cmp #xcmax 


#%11111110 


beq clrc28 


sta mpier + 1 


beq mulp99 


pain25 dec xpin 


bcc probes 


bne ontol 


cir26 Ida angle 


Ida yrad 


mcanhi Idy #%1 


jsr probe 


rts 


Ida 


sec 


sta mcand + 1 


beq mcan02 


inc xpin 


probe2 Ida 


pstack + $1 00, x 


sbc #<270 


Ida #0 


stx prodlo 


bne pain27 


xpinhi 


bne onto20 


bmi circ24 


sta mcanhi + 1 


mcan02 cic 


inc xpinhi 


sta xhigh 


beq ontol 


sta angle 


jsr mulply 


mcand adc #$ff 


pain27 dec ypin 


beq probe4 


onto9 Idx stack 


Ida #180 


cosine Ida #$ff 


bcc mcan04 


jsr probe 


Ida xpin 


inx 


cic 


bne circ45 


cic 


inc ypin 


sta xplot 


bne ontol 2 


sbc angle 


Ida prodlo 


inc prodlo 


inc xpin 


cmp # <xmax 


inx 


sta angle 


cic 


bne mcan04 


bne pain29 


bcc probeB 


stx oflag 


Idx #sinneg 


adc ythere 


inc prodhi 


inc xpinhi 


rts 


orttol 2 stx slack 


Idy # cospve 


bcs circ80 


mcan04 dex 


pain29 jsr probe 


probe4 Ida xpin 


dex 


circ28 stx 


cmp #ymax 


bne mcand 


Ida xpin 


sta xplot 


onto20 pla 


sine + 1 


circ44 bcs 


and #%1 0000000 


bne pain31 


probe6 Ida ypin 


sta pstack,x 


sty cosine + 1 


circ80 


beq mulp99 


dec xpinhi 


sta yplot 


Ida xpinhi 


Ida #>sincos 


bcc circ49 


inc prodlo 


pain31 dec xpin 


cmp # ymax 


sta 


circ30 sta 


circ45 Ida 


bne mulp99 


Ida xpinhi 


bcc probeS 


pstack + $1 00, x 


circ32 + 2 


ythere 


inc prodhi 


sta xhigh 


rts 


dey 


sta circ42 + 2 


sec 


mulp99 rts 


Ida xpin 


probeS jsr 


tya 


circ31 Idx angle 


sbc prodlo 


xrad byt 


sta xplot 


ctestp 


sta 


Ida $01 


bcc circ80 


xrad hi byt 


Ida ypin 


Ida somwer 


pstack + $200,x 


and #%111111ie 


circ49 sta yplot 


yrad byt 


sta yplot 


beq onto 


rts 


sta $01 


pha 


angle byt 


jsr plotex 


rts 


xpin byt 


circ32 Ida 


Idy xplot 


prodlo byt 


jsr soft 


onto Ida #8 


xpinhi byt 


$ff00,x 


sty xcoord + 1 


prodhi byt 


Ida ypin 


sta scount 


ypin byt 


sta mpier + 1 


Idx #5 


angll byt 


cmp # dummy 


Idx stack 


stack byt 


Ida xrad 


circ54 pla 


anglhi byt 


bne pain22 


Ida xpin 


oflag byt 


sta mcand + 1 


pha 


ylabl byt 


pain99 Ida $01 


pha 


scount byt 


Ida xrad hi 


cmp ytabl,x 


0,0,0,0,0,0 


ora #%00000001 


Idy ypin 


end 


sta mcanhi + 1 


bne circ56 


xtabl byt 


sta $01 


iny 




jsr mulply 


tya 


0,0,0,0,0,0 


jmp xbasic 


ontol dex 




sine Ida #$ff 


cmp xtabl.x 


end 


soft Idx stack 


beq onto9 




bne circ35 


beq pindex 




dex 


dec scount 




Ida prodlo 
cic 


rirrfifi Hex 




cpx #0 
bne off2 


beq onto9 
tya 




bpl circ54 


IMODULE13 




adc xthere 


circ57 jsr plotex 


dummy = minus1 


Ida oflag 


sec 
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DISK-EDITING 




For disk drive users, here is a utility 
that gives you direct access to 
stored information, enabling you to 
amend it, or retrieve it in case of 
accidents. 
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DIRECT ACCESS 



READING AND WRITING 



DISK LAYOUT 



THE DIRECTORY 



DISK FORMAT 



USING THE PROGRAM 



READING A SECTOR 



EDITING THE DISK 



REINSTATING A DELETED FILE 
REWRITING A CORRUPTED DISK 



The business of writing and reading files on a 
disk is handled by the disk operating system 
(DOS) or disk filing system (DFS) used by 
your computer. Normally you simply do not 
have to concern yourself with the organiz- 
ation of information on a disk or the transfer 
of data to and from it— the DOS/DFS takes 
care of everything. The disks and the disk 
unit simply become an extension to the 
computer — a data storage device. 

But DOSs/DFSs do offer you the possi- 
bility of accessing individual parts of the disk 
so that information can be extracted, manipu- 
lated or amended beyond a parent program — 
a very useful capability which opens up a 
number of interesting and important 
possibilities. 

You can use this form of direct access to 
change directory entries, file names, file data, 
file links, or to salvage information. The last 
of these is perhaps the most useful of all. 
Direct access enables you — amongst other 
things — to 'unscratch' files which have been 
deleted or scratched, CLOSE unclosed files, or 
re-establish sector pointers which have been 
corrupted, so restoring the correct 'chaining' 
of sectors which go to make up a particular 
file. There are several other uses which make a 
disk monitor program a useful utility to have. 

Direct access of individual information 
'blocks' on a disk can be likened to the use of a 
monitor to examine and alter selected parts of 
memory. And, in fact, the program that 
follows looks very much like such a monitor 
when in use. Unfortunately, it is not possible 
to access sectors on a Microdrive tape using a 
BASIC program, so there is no Spectrum disk 
monitor program. 

The essence of the disk monitor's (or disk 
editor's) operation is a buffer which provides 
temporary storage for data read from a disk or 
written to it. While in the buffer, the inform- 
ation can be amended as desired and this new 
information used to overwrite old on the disk. 



DISK GEOGRAPHY 



Some knowledge of the layout of data on the 
disk is essential if specific tracks and sectors 
are to be located. This layout is normally 
referred to as a disk's format and is established 
by the formatting routines of the DOS/DFS 



used by your computer. 

Hex notation is used extensively in all 
references dealing with direct access work, 
and that's why the general descriptions that 
follow do so as well. And note that decimal 
notation must not be used in connection with 
the use of DMON and other programs of this 
type. So you will find a good set of hex- 
decimal and hex-ASCII conversion tables 
useful. 



HANDS ON 



You need a map of the disk format before you 
can use the disk monitor and this is given 
under each machine's section. But first a 
couple of points. If you are working on a disk 
containing important information, make a 
backup first! Then any mistakes will not be 
catastrophic. 

Secondly, it may sound obvious but you 
cannot recover information which is not 
there. If, for example, you want to recover a 
'lost' or 'scratched' file you can do so only if 
the data hasn't already been overwritten. 
When a file is scratched, the storage space 
once used by that file is released for future use 
and could well have been corrupted if further 
file writing has taken place in the interim. 

It may, however, be possible to salvage 
some data by directing the file pointers to 
those sections that have not already been 
overwritten. 



The 1541 is the dedicated disk unit for the 
Commodore 64 (and Vic 20). It has its own 
on-board disk operating system and can thus 
be considered a fairly 'intelligent' device in its 
own right. While the disk monitor can be 
adapted for use on other CBM drives, the 
track and sector information which follows 
applies specifically to this unit. 

1541 disks are divided into 35 tracks, each 
containing from between 17 and 21 sectors 
depending on the track's physical location. In 
all, a total of 683 sectors exist of which a 
maximum of 664 are available for use. Each 
sector has 256 bytes of storage space. 

Track 18 is occupied by what is called a 
directory. This is normallv accessed simply by 
typing "L0AD"$",8 followed by LIST— this 
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displays the program, sequential and other 
types of file present on the disk. Up to 144 
directory entries (hence files) may be con- 
tained on the one disk. 

Track 18 is the most common one to access 
indirectly using a disk monitor, typically to 
correct the various directory corruptions or 
mistakes that can take place. A typical Tile 
saver' is unscratching files accidentally dis- 
carded, and re-establishing pointers to avoid 
corrupted areas of the disk which are 
unsalvageable. 

But, of course, to find your way round you 
need a 'map' or format of how and where 
information is located on the disk. Let's look 
first at track 18, the directory. 

First there's what's called the block availa- 
bility map (BAM), the purpose of which is to 
indicate just what sector blocks are free for 
use. The BAM is updated after every disk 
access. 

The general layout of the BAM and direc- 
tory track is: 

TRACK 18 ($12) SECTOR 

Byte Purpose 

$00-$01 Track and sector of the first 
block of the directory 

$02 Has value $41 (ASCII character 
A to indicate 1541 format) 

$03 Zero flag (not important) 

$04-$8F Bit map of free blocks (marked 
1 ) and allocated blocks (marked 
0) 

$90-$FF DIRECTORY HEADER 

Header format: 

$90-$ A 1 Disk title (padded with shifted 
spaces -$A0) 

$A2-$A3 ID marker 

$A4 Spacer (shifted space -$A0) 
$A5-$A6 Format type ($32,$41 -2A in 

ASCII) 
$A7-$AA Spacers (shifted spaces - $A0) 

$AB-$FF Unused ($00) except for 
BLOCKS FREE legend 

The actual directory starts in track 18 sector 1 
and, depending on the number of files, may 
extend to other sectors as well. All of the 
remainder of track 18 is set aside for this task. 
A maximum of eight files can be detailed in 
each sector, 

TRACK 18 ($12) SECTOR 1 

Byle Purpose 

$00-$01 Track and sector of next direc- 



$02-$ IF 


DETAILS OF FIRST FILE: 


File format 




$02 


File type (see below) 


$03-$04 


Track and sector of first file data 




block 


$05-$14 


Name of first file (padded with 




shifted spaces — $A0) 


$15-516 


Used for relative files only (T&S 




of first side-sector block) 


$17 


Relative file record length 


$18-$1B 


Not used 


$1C-$1D 


Used for T&S of new file when 




'save and replace' instruction — 




@ — used 


$1E-$1F 


Number of blocks in the first file 




(lo-byte, hi-byte) 


$20-$21 


Spacer (shifted spaces — $A0) 


$22-$3F 


DETAILS OF SECOND FILE 


(file format 


as for first file) 



tory block 



The second file details are then followed by 
another two-byte spacer, and so the format 
continues for eight files per block. If no 
further files follow in a particular block, the 
rest of it remains filled with zeros. 

The two bytes immediately preceding the 
file name are the pointers to the first data 
block of that particular file. For the first file 
these can be found at $03 and $04. The values 
(in hex) give, in turn, the track and sector. So 
$1 1 $01 would point to track 17 sector 1. The 
format of a typical data block or sector (of 256 
bytes) starts simply enough with the pointer 
data for the next block of data in the file, again 
in track/sector order. The remaining bytes are 
filled with data. The last block used by the file 
starts with $00 and the next byte value 
indicates the number of bytes of that block 
which are used. 

10PRINT"nBJ":POKE53280,0:POKE53281, 

0:GOSUB2400 
20 D1MA(255),S(35);HX$ = "01 23456789 

ABCDEF":SE = 1:TR = 18 
30FORI = 1TO17:S(1) = 21:NEXT 
40FORI = 18TO24:S(1} = 19:NEXT 
50FORI = 25TO30:S(I) = 18:NEXT 
60FORI = 31TO35:S(I) = 17:NEXT 
70PRINT:GOSUB1000:PRINT"D" 
80A$=LEFT$(T$,1) 
90 IFA$ = "P"THENGOSUB1200:GOTO70 
100 IFA$ = "X"THENPRINT" BASIC":END 
1 1 IFA$ = "$"THENG0SUB1 500:GOTO70 
120 IFA$> ="0"ANDA$< ="9"THEN 

GOSUB1600:GOTQ70 
130 (FA$ = "D"THENGOSUB650:GOTO70 
1 40 I FAS = "S"THENG0SUB1 700:GOTO70 
1 50 I FAS = "E"TH ENG0SUB1 800:GOTO70 
170 IFA$ = "R"THENGOSUB1900:GGTO70 



180 IFA$ = "W"THENGOSUB2100:GOTO70 
190 IFA$ = "C"THENGOSUB2300:GOTO70 
200 IFA$ = "H"THENGOSUB2400:GOTO70 
210 PRINT".?UC?":GOTO70 
650OPEN15,8,15:OPEN8,8,8,"#":PRINT 

#15,"U1:"8;0;18;0:CLOSE15:CLOSE8 
655 0PEN1,8,2,"$" 
660 FGRX = 1T0H1:GET#1,A$:NEXT 
670 T$(0) = "DELETED":T$(1 ) = "SEQ": 

T$(2) = "PR0GRAM":T$(3) = "USER": 

T$(4) = "RELATIVE" 
680J = 17:GOSUB940 
690 N$ = BS 
700 J = 2 
710GOSUB940 
720 l$ = B$ 
730GET#1,A$ 
740 J = 2 
750 GOSUB940 
760O$ = B$ 
770FORL = 1TO88 
780GET#1,A$ 
790 NEXT 
800 PRINT'DISK NAME:"N$:PRINT"DDn 

nana id:"i$;print"d n a a a a 

□ 0S:"0$"H" 
810 PRINT"LENGTH","TYPE","NAMEH" 

820FORP = 1TO8 

830GET#1,T$,A$,A$ 

840 1FT$ = ""THENT$ = CHR$(128) 

850 J = 1 5 

860GOSUB940 

870N$=B$ 

880 GET# 1,A$,A$,A$,A$,A$,A$,A$,A$,A$, 

L$,H$ 
890 L = ASC{L$ + CHR$(0)) + 256*ASC 

(H$ + CHR$(0)):IFL = 0THEN930 
900IFSTTHENCLOSE1:RETURN 
91 PRINTL*256,T$(ASC(T$) - 1 28), N$ 
920IFP<8THENGET#1,A$,A$ 
930 NEXT:GOTO820 
940 B$ = "" 
950FORL = 0TOJ 
960 GET#1,A$ 
970 IFA$oCHR$(96)THENIFA$oCHR$ 

(160)THENB$=B$ + A$ 
980 NEXT: RETURN 
1000T$ = "":PRINT"."; 
1010 PR!NT"[_|||";:GETA$:IFA$ = "" 

THEN1010 
1020 IFA$ = CHR$(13)THEN1100 
1030IFA$ = CHR$(20)THEN1110 
1040IFLEN(T$)>10THEN1010 
1050 IFA$ = "D"ORA$ = "$"THEN1090 
1060 IFA$<"0"THEN1 010 
1070 IFA$>"Z"THEN1 010 
1090 T$ = T$ + A$:PRINTA$;:G0T01 01 
1100IFT$< >""THENRETURN 
1110IFT$ = ""THEN1010 
1 1 20 T$ = LEFTS (T$,LEN (T$) — 1 ) 
1130 PRINTA$;:G0T01 010 
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1200 REM PRINT ROUTINE 

1210X$ = MID$(T$,3,2}:GOSUB1300:S = X 

1220X$ = MID$(T$,6,2):GOSUB1300:F = X 

1230 FORI = STOFSTEP9 

1240X = I:GOSUB1400:PRINTH$":";:FOR 

T = 0TO8:IFI+T>255THENPRINT"*'": 

RETURN 
1250X = A(I + T):GOSUB1400:PRINTH$ 

"D";:NEXT 
1260 FORT = 0TO8:A = A(l + T):IFA < 320R 

A>91THENA = 32 
1270PRINTCHR$(A);:NEXT:PRINT:NEXT: 

RETURN 
1300A$ = LEFT$(X$,1);B$ = RIGHT${X$,1): 

FORI = 1T016 
1310IFA$ = MID$(HX$,I,1)THENH = 

(I — f>*16 
1320IFB$ = MID$(HX$,I,1)THENL= 

(1-1) 
1330NEXT:X = H + L:RETURN 
1400H = INT{X/16):L=(X-H"16) 
1410 H$ = MID$(HX$,H + 1,1) + MID$(HX$, 

L + 1,1):RETURN 




1500IFLEN{T$) = 5THEN1540 

1505 IFLEN(T$)<>3THENPRINT".?SX?";: 

RETURN 
1510X$ = RIGHT$(T$,2) 
1520 GOSUB1 300 
1530 PRINT". DEC"X:RETURN 
1540 X$= RIG HT$(T$,2):GOSUB1 300 
1550M = X:X$=MID$(T$,2,2):GOSUB1300: 

PRINT". DEC"256*X + M:RETURN 
1 600 V = VAL(T$):IFV > 655350RV < 0THEN 

PRINT".??";:RETURN 
1610M = INT(V/256) 
1620N = V-M*256 
1630X = M:GOSUB1400:A$ = H$:X = N: 

GOSUB1400:A$ = A$+H$ 
1640 PRINT".HEXU"A$:RETURN 
1700 PRINT'LAST TRACK:$";:X = TR:GOSUB 

1400:PRINTH$ 
1710 PRINT"D D D DSECTOR:$";:X = SE: 

GOSUB1400:PRINTH$ 
1720 RETURN 
1800 X$ = MID${T$,3,2) 
1810GOSUB1300 



1820A = X:X$=MID$(T$,6,2):GOSUB1300: 

B = X 
1830 A(A) = B:PRINT"OK":RETURN 
1900 IFLEN(T$) = 1THENGOSUB2000: 

RETURN 
1910X$ = MID$(T$,3,2}:GOSUB1300:IFX<1 

ORX>35THENPRINT".?IT?";:RETURN 
1920A = X:X$ = MID$(T$,6,2}:GOSUB1300: 

IFX<0ORX>S(A)THENPRINT".?IS?";: 

RETURN 
1930TR = A:SE = X:GOSUB2000 
1940 RETURN 
2000 OPEN1 5,8,1 5 
2010OPEN8,8,8,"#" 
2020PRINT#15,"U1:"8;0;TR;SE 
2030 PRINT#15,"B— P:"8;0 
2040 FORI = 0TO255:G ET # S,A$: IFST < >0 

ANDST<>64THENPRINT".?DR?": 

CLOSE8:CLOSE15:RETURN 
2050A(I) = ASC(A$ + CHR$(0)) 
2060 NEXT 

2070CLOSE8:CLOSE15:PRINT"OK":RETURN 
2100 IFLEN(T$) = 1THENGOSUB2200: 

RETURN 
2110X$ = MID$(T$,3,2):GOSUB1300:IFX<1 

ORX>35THENPRINT".?IT?";:RETURN 
21 20' A = X:X$ = Ml D$(T$,6,2):GOSUB1 300: 

1FX<0ORX>S(A)THENPRINT".?IS?";: 

RETURN 
2130TR = A:SE = X:GOSUB2200 
2140 RETURN 
2200 OPEN1 5,8,1 5 
2210OPEN8,8,8,"#" 
2220 PRINT #15,"B-P:"8;0 
2230FOR! = 0TO255:PRINT#8,CHR$(A(I)};: 

IFST< >0ANDST< >64THENPRINT 

".?DW?":GOTO2250 
2240NEXT:PRINT#15,"U2:"8;0;TR;SE 
2250 CLOSE8:CLOSE15 
2260 RETURN 
2300 OPEN1 5,8,1 5 
2310INPUT#15,A,B$,C,D 
2320 PRINT"ERROR NO.:"A 
2330 PRINT" :arjQDTYPE:D"B$ 
2340 PRINT"DD@nTRACK:"C 
2350PRINT"DnnSECTOR:"D 
2360CLOSE15:RETURN 

2400 PRiNr'HPnxxnxxi : :- print 

MEMORY 
2410 PRINT'DD D DDDDD- 

Dl RECTORY 
2420PRINT"RnXXnXXDD- READ 

FROM DISK 

2430 PRiNT'wnxxnxxn a - write to 

DISK 
2440PRINT"EDXXnXXDn- EDIT 

MEMORY 
2450 PRINT'S D □ DDDDDD- LAST 

SECTOR/TRACK 
2460 PRINT"$D DDDDDDD- HEX 

TO DECIMAL 
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2470 PRINT'(NUMBER) - DECIMAL TO HEX 
2480 PRINT"CD DDnDDDD- 

LAST ERROR 
2490 PRINT"XD DDDDDDD- EXIT 

TO BASIC 
2500 PRINT"HD D □ □ □ □ □ □ - 

PRINTS MENU 
2510PRINT"MITD- ILLEGAL TRACK 
2520 PRINT"ISD - ILLEGAL SECTOR 
2530 PRINT'SXD - SYNTAX ERROR 
2540 PRINP'UCD - UNKNOWN COMMAND 
2550 PRINP'DRD - DISK READ ERROR 
2560 PRINP'DWD - DISK WRITE ERROR 
2570 RETURN 



USING THE COMMODORE DMON 



When you RUN the program you'll see a menu 
offering eleven commands, as well as a list of 
error messages with their explanations. Each 
command is accessed by the letter shown, and 
the double Xs indicate you must input a 
number as explained below. 

For a comprehensive directory, press D — 
the lengths of the programs are shown in 
bytes, and both the deleted and the current 
file names are shown. 

To read any part of the disk, press R then 
enter the number of the track and the sector, 
separated by spaces. Remember to use hex! 
Try R 1 2 01 to read in the directory as stored 
on the disk. The data read in is stored in the 
disk buffer and can be displayed on the screen 
by pressing P, followed by the number of the 
start and end byte of the section you want to 
view. To see the entire contents use P 00 FF. 
The byte numbers are shown in the left-hand 
column, the contents in hex are shown in the 
centre and the ASCII translation is shown at 
the right. 

To change a byte, press E, followed by the 
number of the byte you wish to change and 
the new value. You'll see the new value appear 
in the correct place on the screen. To write 
this back to disk, press W followed by the 
destination track and sector. 

The other commands available are S, 
which prints out the last track and sector 
accessed; $ followed by a hex number to 
convert it to decimal; a decimal number on its 
own to convert it to hex; C to print the code of 
the last error; H to redisplay the menu, and X 
to return to BASIC. 

When a file is scratched, the file type 
marker in the directory is altered. This 
marker immediately precedes the file Track 
and Sector (T&S) pointers which in turn 
come just before the file name. A directory 
listing can show several types of file, DEL, 
SEQ, PRG, USR and REL 

The files are normally open — which means 
ready for (over)writing — or closed. A file is 



opened when 'scratched' to release its alloc- 
ation of storage blocks. When closed, a file is 
'active' in the sense that it has been stored. 
But it is possible to lock these files so that they 
cannot be scratched easily. 

Using the disk monitor you can locate the 
file type byte easily enough and examine its 
status. The following file types and hex value 
designations exist: 

File type 

Closed Open Protected 

DELeted $80 $00 — 

SEQuential $81 $01 $C1 

PRoGram $82 $02 $C2 

USeR $83 $03 $C3 

RELative $84 $04 $C4 

Thus a program file which has been scratched 
displays $02 in the file type byte position. If 
the sectors or blocks of that file have not been 
overwritten, the file data can be recovered by 
using the disk monitor to alter the value to 
$82 (the value it would have if the file was 
active). 

But by altering the value to $C2 you can 
actually lock the file to prevent scratching. 
And using the appropriate values in the third 
column, you can protect other types of file. 
On a subsequent directory listing, the file 
type letters will have a < next to the 
abbreviation to denote locking. If you did 
want to remove the files you can do so by 
NEWing the entire disk, or using the editor to 
change the values to the appropriate scratch 
value ('open'). 

If part of a file has been corrupted — as it 
would be if you were attempting to recover a 
scratched file some of whose allocation of 
blocks had been overwritten by an active 
file — you will have to 'follow through' the 
various T&S pointers to gauge the extent of 
the damage. 

Start at the directory ($12 $01) and es- 
tablish the T&S pointer to the first data track 
of the file you're trying to recover. Then use 
the disk monitor to examine that track. If this 
appears intact — that is, it doesn't contain 
random garbage — proceed to examine the 
next one in the chain. The T&S location of 
this is given in the first two bytes of the sector 
you're currently examining. 

If you come across a sector in the chain that 
is corrupted, first see whether repair work is 
possible simply by overwriting one or two of 
the earlier pointers. By rewriting an earlier 
pointer the file effectively skips the corrupted 
sector. This will enable you to recall inform- 
ation using the parent program, tidy up the 
information so that the end of one sector 
matches the start of the next, and reSAVE the 
whole file on a new disk. 




The most common types of disk filing system 
(DFS) used with the BBC computer are 
Acorn's own and the Watford system. Both 
can make use of the disk monitor program, 
however, since the Watford DFS includes an 
EDIT command the following description is 
intended for the Acorn DFS. 

Disks for use with the BBC have either 40 
or 80 tracks, each containing ten sectors per 
track so you have 400 or 800 sectors on each 
side. Each sector is composed of 256 bytes of 
storage space. 

Catalogue information (obtained using 
*CAT) accesses track 0, sectors and 1 whose 
format is shown below. In addition to all the 
file names (a maximum of 31), you can access 
(and so adjust) the pointers — sector 
references — of the data which goes to make up 
any one of those files. By reading and adjust- 
ing these directly you can recover programs 
or data which may be present but inaccessible 
by conventional means. 

Track SECTOR FORMAT 

Byte Purpose 

&00-&07 First eight characters of disk 
title, padded with spaces 

&08-&0E First file name, padded with 
spaces (seven characters max.) 
&0F Directory letter of first file 

&10-&16 Second file name, padded with 
spaces (seven characters max.) 
&17 Directory letter of second file 

The eight-byte name and directory blocks 
continue up to a maximum of 31 files. 

TRACK SECTOR 1 FORMAT 

Byte Purpose 

&00-&03 Last four characters of disk title 
(padded) 

604 Count of number of write oper- 
ations made to the disk 

605 Eight-byte block count (should 
equal 8 times number of active 
files) 

606 Individual bit settings (see 
below) 

$07 Number of sector on disk (eight 
LSBs of 10-bit number) 

&08-&0F FIRST FILE STORAGE 
MAP 

File format: 

&0S-&09 Load address, LSB first. This 
would be zero for a data file or 
&1900 for a BASIC program 
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&0A-&0B Execution address, LSB first. 
Zero for a data file, or &8023 for 
a BASIC I or &80IF for BASIC 
II. 

&0C-&0D File length (bytes), LSB first 

&0E Individual bit settings (see 
below) 

&0F Start sector (eight LSBs of 10- 
bit number) 

&10-&17 SECOND STORAGE MAP 
File format as above 
And so on up to 31 files. 

The individual bit settings in &06 and &0E 
are as follows. Setting bits 5 and 4 of &06 give 
start-up option (! BOOT) while bits 1 and are 
the two MSBs (most significant bits) of a 19- 
bit number. The remaining eight bits are 
stored in &07. 

The significance of bit settings in location 
0E are as follows; 7 and 6 are two MSBs of 1 8- 
bit execution address (LSBs in &0A and 
&0B). Bits 5 and 4 provide the two MSBs of 
the file length (LSB in &0C and &0D) if 
required. Likewise bits 3 and 2 look after two 
MSBs for a load address if required. Bits 1,0 
provide the two MSBs for a 10-bit file start 
sector (LSBs in &0F). 

The start sector information in byte &0F 
and bits 1 and of byte &0E give the starting 
point of the file. For example, if &0F is 38 and 
the MSBs are zero, the file is located at 
&38/ 1 = 5 .6, that is, track 5 sector 6. If &0F 
is 43 and bit in &0E is set, the file is located 
at &143/10, or track 32, sector 3. 

It is useful to note that the load address 
(&0E &09) is normally &0000 for a data file, 
&1900 for BASIC (remember, LSB first!). 
The execution address is again &0000 for a 
data file and usually &8023 for BASIC. 

The appearance of the file map for BASIC 
program of 12067 bytes might take the form: 
00 19 23 80 23 2F CC 02. This information 
can also be obtained in a slightly different 
form using the command *INF0*.*. 

10 M0DE3 

20 DIM block 12 

30 DIM buffer 255 

40 printer = 

50DR% = 

60PROCIoad(DR%,0,0,1) 

70 REPEAT 

80 PROCprint 

90 VDU28,0,24 ; 79,21 

100PROCcommand 

110 UNTIL com$ = "ENDD" 

120 END 

1 30 DEFPROCIoad(DR%,TR%,SCT%,RNW) 

140 X% = block MOD 256:Y% = block DIV 256 

150 A% = &7F 



160block?0 = DR% 

170 block! 1= buffer 

1 80 block?5 = 3 

190block?6 = &4B + 8*RNW 

200 block?? = TR% 

210block?8 = SCT% 

220 block?9 = &21 

230 CALL&FFF1 

240 ENDPROC 

250 DEFPROCprint 

260 CLS:VDU26 

270 IF printer=1 THEN VDU2 ELSE VDU3 

280PRINT"TrackD";TR%;"naSectorn"; 

SCT%;"aDDriveD";DR% 
290 PRINT 
300 FOR l% = TO 1 
310 PRINT" D □ D D D □ a bytes (in hex) 

DDDDDQDD □ DasciiD □ D"; 
320 NEXT 
330 PRINT 

340 line =.32:pos = 7:buff= buffer 
350 FOR lin = 1 TO line 
360L = LEN(STR$((lin-1)*8)) 
370 FOR 1 = 1 T0 4-L:VDU32:NEXT 
380PRINT;STR$((lin-1)*8);"Dn"; 
390 FOR linpos = TO pos 
400 cont = linpos?buff 
410 IF cont<&10 THEN PRINT'S"; 
420 PRINT; ~cont;"D"; 
430 NEXT 
440 PRINT" □"; 
450 FOR linpos = TO pos 
460 cont = linpos?buff 
470asc = (cont>31 AND cont<127) 
480 IF asc THEN PRINTCHR$cont; ELSE 

PRINT"."; 
490 NEXT 

500IFIin MOD2 = 0THEN PRINT 
510 buff = buff + 8 
520 NEXT 
530 PRINT 
540 VDU3 
550 ENDPROC 
560 DEFPROCcommand 
570INPUT"$"com$:comlen = LEN(com$): 

com$ = com$ + LE FT$ ( " □ □ □ □ ",4 - 

comlen) 
580 command = (INSTR(" □ □ □ □ DRV TRK 

SCTINSPRTWRTEND 

SHOW",com$,0))DIV4 + 1 
590 ON command GOTO 600,610,620,630, 

640,650,660,680,670 
600 PROCcommand:ENDPROC 
610PROCdrive:ENDPROC 
620 PROCtrack:ENDPROC 
630 PROCsectonENDPROC 
640 PROCinsertENDPROC 
650 PROCprinter: ENDPROC 
660PROCIoad(DR%JR%,SCT%,0):ENDPROC 
670 PROCIoad(DR%JR%,SCT%,1 ):ENDPR0C 
680 ENDPROC 



690 DEFPROCdrive 

700INPUT"DriveD",DR% 

710 ENDPROC 

720 OEFPROCprinter 

730 IF printer = 1 THEN printer=0 ELSE 

printer = 1 
740 ENDPROC 
750 DEFPROCinsert 
760 REPEAT:INPUT"Offset from start 

?...."os:UNTIL os> =0 AND os<256 
770 REPEAT:INPUT"New value ?...."val$:val = 

EVAL(val$):UNTIL val> =0 AND val<256 
780buffer?os=val 
790 ENDPROC 
800 DEFPROCtrack 
810 REPEAT 

820 INPUT"TrackDD?n"TR% 
830 UNTIL TR% > = AND TR%<80 
840 PROCIoad(DR%JR%SCT%,1 ) 
850 ENDPROC 
860 DEFPROCsector 
870 REPEAT 

880 INPUT"SectorDD?n"SCT% 
890 UNTIL SCT%> =0 AND SCT%<10 
900 PR0Cload(DR%,TR%,SCT%,1 ) 
910 ENDPROC 



USING THE BBC DMON; 



As soon as you RUN the program you'll see a 
display of the bytes in track 0, sector 0, drive 
along with an ASCII equivalent of the hex. 
To view any other part of the disk enter DRV 
to select the drive, TRK for the track, and SCT 
for the sector. Try swapping between sectors 
and 1, which shows the file names and then, 
in the same positions, the file storage maps. 

Type INS to insert (change) any of the 
bytes. First type in the number of the byte 
you wish to change, then the new value — in 
ASCII for the file names in sector or in hex 
for the storage map in sector 1. Do not use 
decimal numbers. 

When you've edited the sector you can 
write it back to the disk using WRT. 

If you want a printout at any time type PRT 
to turn it on and PRT again to turn it off. If 
you change disks you may need to type SHOW 
to display the new disk, although the sector 
will normally be displayed automatically. 
Type END when you've finished. 

The DMON program can be used for 
general maintenance work on disk files but 
perhaps the most important use is recovery of 
lost' files. First you need some information 
about the file length and, more important, the 
sector at which it begins. Under normal 
circumstances — that is, before a file is 
corrupted — this information can be obtained 
simply enough by keying "INFO < filename > . 

Unless you already have this information 
logged (a good idea for any important file) 
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you are faced with a rather boring exploration 
of the disk to find, initially, the starting track 
and sector of the lost file and its length :&QC, 
&0D). Convert the track and sector inform- 
ation into a hexadecimal byte plus extra 
iMSBs using the reverse of the procedure 
described on page 1613. 

To recover the file, choose the next free 8- 
byte block in sector and construct a suitable 
new filename plus directory letter (7+1 
bytes), entered as ASCII codes of the charac- 
ters. Be careful not to overwrite an existing 
active file's name. 

Then use DMON to call up sector 1. 
Adjust &05 to cater for the extra file — simply 
increment it by 8. 

You've created a new file and so a separate 
storage map — an extra eight bytes of data 
from &08 to &0F— is needed for the file. Put 
these into the first available 8-byte batch, 
corresponding to the file name. The first two 
bytes of this is the load address— &00Q0 
(data) or &1900 (BASIC)— the next pair of 
bytes is the execution address. 

Now use the editor to write in the length of 
the file on the next pair of bytes I LSB first!). 
If you don't know how long it is put in &00, 
&10 for the time being. 

The one problem area is the setting of the 
value for the seventh byte, the two LSBs of 
which indicate the start sector of the file you 
are trying to recover. Remember, this inform- 
ation is already on the disk and a start point 
must be located and entered in the seventh 
byte before a file can be recovered. 

When you've done this, exit the disk 
monitor. If you were unsure of the files 
length, first type PRINT -LOMEM and note 
down the figure. Then LOAD the program or 
data to check it has been recovered and find 
LOMEM again. The difference between these 
two values is the length of the file and can be 
inserted into bytes &0C and &0D of the 
storage map. Now 'SAVE the file onto another 
disk just to make sure. 



The Dragon Data disk drive has its own 
special interface containing the operating 
system, and the following information applies 
specifically to this unit. 

The disks are divided into 40 or 80 tracks 
each containing 18 sectors of 256 bytes each. 

The directory, which keeps track of all the 
files on the disk, is stored on tracks 1 6 and 20. 
These tracks are identical, but track 1 6 is used 
for the directory and track 20 for the system. 
The directory can be accessed by typing D1R, 
which then displays a list of all files with 
information on their type, length and number 
of bvtes free. 



Tracks 16 or 20 are the most common ones 
to access using the disk monitor, typically to 
reinstate an accidentally deleted file. But to 
find your way around you need a map of the 
information stored in the directory. 

TRACK 16 SECTOR 3 



Byte 


Purpose 


1 


Descriptor code, eg 00 for valid file, 




02 for protected file, 81 for deleted 




file 


2-9 


Name of file padded with zeros 


10-12 


File descriptor eg BAS, BAK 


13-14 


High and low bytes of 16 bit num- 




ber giving the start track and sector 


15 


Total number of sectors used 


16-24 


Used to point to linked files 


16,17 


High and low bytes pointing to next 




start sector 


18 


Number of sectors used 


19-21 


Same for next section 


22-24 


Same for final section 


25 


Number of bytes used in last sector 



Sectors 1 and 2 of tracks 16 and 20 are used to 
tell the computer which sectors are in use. 
Each byte represents eight sectors, one bit per 
sector, counted from track zero, sector 1. 
Each bit starts off at for a newly formatted 
disk but is set to 1 as that sector is filled. 
When a file is deleted the bit is changed back 
to zero. 

The appearance of the directory entry for a 
BASIC file might take the form: 



IABC0000 00 0000BAS014418I 
00 00 00 00 00 00 DB 



'FC 



This is a file called 'ABC starting at position 
&H0144,&H18 sectors long, with the second 
edition starting at &H00FC, 9 sectors long, 
and &HDB bytes in the last sector. The 
position is worked out as follows: 
&H0144 = 324 decimal, divide by 18 (there 
are 18 sectors per track) to find the track, 
equals 18. Since there's no remainder it starts 
at sector 1. The total length is &H18 + &H8 
sectors plus &HDB bytes, equals 8411 bytes. 

10CLEAR5000:DIMA$(1),D${1),D(160): 
C$ = "T" + CHR$(10) + CHR$(8) + 
CHR$(9) + "AH" + CHR$(13) + ": ":D = 1 

20 CLS:PRINT@13,"menu" 

30 PRINT@106,"IOAD SECTOR":PRINT 
@170/-v!EW/EDITSECTOR":PRINT@234, 
"SAVE SECTOR":PRINT@298, "CATALOGUE" 

40R$=INKEY$:IFR$ = ""THEN40 

50 R = INSTR("LVSC",RS}:IFR = THEN40 

60 IFSL = 0AND(R = 2ORR = 3) THENPRINT: 
PRINT"N0 SECTOR L0ADED":F0RK = 1 
TO2000:NEXT:GOTO20 

70 CLS:0N R G0SU81 000,2000,3000,4000 




80 GOTO20 

1000SL = 1:GOSUB5000 

1010SREADD,T,S,A$(0),A$(1) 

1020 RETURN 

2000 F = 1:H = 1:CLS:PRINT"aSCH OR hEX 

LISTING ?" 
2010 R$ = INKEY$:IFR$< >"A"AND 

R$o"H"THEN2010 
2020 AS = 0:IFR$ = "A" THENAS = 1 
2030 IFF = 0THEN2050 
2050PK = 96:CP = 1535:IFAS = 1 GOSUB 

2320 ELSEGOSUB2280 
2050 P0KECP,PK: CP = 1 024 + Y'32 + X*3: 

PK=PEEK(CP):P0KECP,239 
2060 PRtNT@321,"TOP BYTE = ";H 
2070 R$ = INKEY$:IFR$ = "" THEN2070 
2080 R = INSTR(C$,R$):IFR =0 THEN2070 
2090 F = 0:ON R GOTO 2100,2110,2120, 

2130,2140,2150,2160,2170 
21 00 Y = Y — 1 :GOT0221 
2110Y = Y + 1:GOTO2210 
2120X = X-1:GOTO2210 
2130X = X + 1:GOTO2210 
2140AS = 1:GOTO2040 
2150AS = 0:GOTO2040 
2160 RETURN 
2170 PRINT@384,"INPUT NEW CONTENTS 

(HEX)_";:INPUTH$ 
2180 V$ = CHR$(VAL("&H" + H$)):P= H + 

Y'11+X 
2190MID$(A$(P/128),P + 128'(P>128), 

1)=V$ 
2200F = 1:GOTO2030 
2210 IFY<0THENH = H-44:Y = 0:F=1 
2220 IFY>7THENH = H + 44:Y = 7:F = 1 
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2230IFX<0THENX = 10:Y = Y-1:IFY<0 

THENH = H-11:Y = 0:F = 1 
2240IFX>10THENX = 0:Y = Y + 1:IFY>7 

THENY = 7:H = H + 11:F = 1 
2250 IFH= -10ORH= —43 THENH = 1: 

F = 0:ELSEIFH<1 THENH = 1:F = 1 
2260 IFH = 1790RH = 212 THENH = 168: 

F = 0ELSE1FH>168THENH = 168:F = 1 
2270 GOTO2030 
2280 CLS:FORJ = H TOH + 87 STEP1 1 :FOR 

T = 0TO10 
2290 PR!NTRIGHT$("0" + HEX$(ASC 

(MID$(A$(J/128),J+T+128" 

((J+T)>128)))),2);"D"; 
2300 NEXT:PRINTCHR$(8);:NEXT 
2310 RETURN 
2320CLS:FORJ = M TOH + 87 STEP11 :FOR 

T = 0TO10 
2330 G = ASC{M ID$(A$(J/1 28},J + T + 1 28* 

((J + T)>128))):IFG<32THEN2350 
2340 PRINT"! :";CHR$(G);"D";:GOTO2360 
2350 PRINTLEFT$("0" + HEX$(G),2);"Q"; 
2360NEXT:PRINTCHR$(8);:NEXT:RETURN 
3000 CLS:PRINT"SAVE TO SAME SECTOR 

(y/n) r 

3010 R$=INKEY$:IFR$< >"Y"AND 

R$o"N"THEN3010 
3020 IFR$ = "Y"THEN3040 
3030 CLS:GOSUB5000 
3040 PRINT:PRINT"ARE YOU SURE (Y/N) ?" 
3050R$ = INKEY$:1FR$o"Y" 

ANDR$o"N"THEN3050 
3060IFR$ = "N"THENRETURN 
3070SWRITED,T,S,A$(0),A$(1} 
3080 RETURN 



4000GOSUB5050 

4010 PRINT#PR,TAB(14);"STARTG UNO." 

4020 PRINT#PR,"CDNAMEnnTYPEU 

TRNI ISCUSECSI 1LEN" 
4030 FOR J = 0TO1 5:SREAD1 ,1 6, J + 3,D$(0), 

D${1) 
4040 FORK =1TO250 STEP25 
4050 GOSUB6000 
4060 IFASC(V$) <> ANDASC(V$) <> 2 

THEN4120 
4070 PRINT# PR,MID$(V$,2,8);TAB(8);"."; 

MID$(V$,10,3); 
4080 TS = - 1 :FORP = 1 3T022 STEP3: 

V = 256'ASC(M!D$(VS,P)) + ASC(MID$ 

(V$,P+1)):EB = ASC(MID$(V$,P + 2)}: 

TS = TS+EB:IFEB = 0THEN4110 
4090 IFP<>13THENPRINT#PR 
4100PRINT#PR,TAB(12);INT(V/18}JAB{16); 

1+V-18'INT(V/18};TAB(20);ASC(M!D$ 

(V$,P + 2)); 
41 1 NEXTP:PRINT # PR JAB(24);256*TS + 

ASC(MID$(V$,25)) 
4120NEXTK,J:R$=INKEY$:IFPR=-2THEN 

4140 
4130R$ = INKEY$:IFR$= 1 '"THEN4130 
4140 RETURN 

5000 INPUT'TRACK NUMBER (0-39)n";T 
5010 !NPUT"SECTOR NUMBER 

(1-18)LJ";S 
5020 INPUT-DRIVE NUMBER (1 -4)G";D 
5030 tFD>4ORD<1ORT>39ORT<0OR 

S>180RS<1 THEN5000 
5040 RETURN 
5050PR = 0:IF(PEEK(65314)AND1) = 1 THEN 

RETURN 



5060 PRINT-OUTPUT TO PRINTER (Y/N) ?" 

5070 R$ = INKEY$:IFR$ < > "Y' 'AND 
R$< >"N"THEN5070 

5080IFR$ = "Y"THENPR=-2 

5090 RETURN 

6000V$=MID$(D$(K/128),K + 128* 
(K>128),25):!FLEN(V$)<25THENV$ = 
V$ + MID$(D$(1 + K/128),1,25- LEN(VS)) 

6010 RETURN 



USING THE DRAGON DMON 



Type in or LOAD the program then insert the 
disk you intend to work on. Use an unimport- 
ant disk while you are practising. Type RUN 
and you'll see a menu offering four options: 
Load sector, View/edit sector, Save sector, 
Catalogue. Press C first and you will see a 
detailed catalogue of all your files. The list 
shows the file name, type, start track and 
sector, number of sectors and the length in 
bytes. If a file consists of several linked 
sections then the start track and sector of each 
section is shown. If you have a printer it is 
worth taking a copy to keep with your disk. 

Now type L to load a sector. Try the 
directory first, track 16, sector 3. Type V to 
view. Press A or H at any time to see the 
listing in either ASCII or hex. You should be 
able to relate the numbers or letters to the 
directory map shown earlier. 

Use the arrow keys to move the cursor to 
any byte you wish to change then type in the 
new value (in hex). Press space to enter the 
number. Only part of the sector is shown on 
the screen. To see the rest, move the cursor to 
the bottom line and the screen will scroll up. 
The current number of the byte in the top left 
corner is continuously displayed. 

When you've finished editing the sector 
you can save it back on the disk by returning 
to the menu and pressing S. 

When a file is deleted on the Dragon, the 
program descriptor byte in front of the file 
name is changed to 81 , but the file name is not 
deleted. Using the disk monitor to look at the 
directory you can easily find this byte and 
change its value to 00, for a valid file. You 
have to change this byte in both track 16 and 
20. If you now press |BREAK| and type DIR 
you'll see that the file name has reappeared, 
and you can load the program. 

The best thing to do now is to SAVE this 
program on another disk and then delete the 
file on the old disk once more. This is 
because, although you have reinstated the file 
name, you have not reset the bits relating to 
that file in sectors 1 and 2 of the directory. It 
is possible to set these bits, but it is extremely 
difficult to find the correct ones, and if you 
make a mistake you could corrupt other files 
on vour disk. 
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Micro music is only just starting to 
open up. The introduction of MIDI- 
based equipment allows you to link 
computers to music synthesizers and 
run one off the other . . . 



Sound has become one of the features most 
people expect to find on a home 
microcomputer — some people may even be 
swayed towards buying a particular computer 
because of its sound capabilities. In addition 
to the music you can make on your computer, 
a way of connecting many home microcom- 
puters to synthesizers and other kinds of 
musical instruments is now being introduced 
and becoming freely available. The standard 
is called MIDI — Musical Instrument Digital 
Interface — and opens up a whole new range of 
possible uses for your computer. 



SOUND FROM MICROCOMPUTERS 



Sound from microcomputers has come a long 
way from the buzzes and bleeps produced by 
the earliest models with sound, towards being 
able to play music and produce sound effects. 
Of the computers covered in INPUT, the 
Spectrum offers very simple sound, using its 
BEEP command and the Dragon can be pro- 
grammed to play tunes via its PLAY command. 
On the Spectrum and the Dragon, the notes 
always sound the same — a very electronic- 
sounding pure tone. The computers also 
cannot produce more than one note at a time 
from BASIC. 

With the Commodore 64 and the BBC it's 
a slightly different story. They have what are 
amongst the most sophisticated sound facil- 
ities to be found on microcomputers, both 
computers having their own dedicated sound 
chip, which offers a far greater range of 
musical possibilities. Both the computers 
have three musical channels, or voices, (the 
BBC has a noise channel, too) which can be 
played either on their own or together (single 
notes or chords). You aren't stuck with a 
single note 'quality' either — you can shape the 
sound using envelopes (see pages 1138 to 
1144). 

The Acorn Electron is a stripped-down 
version of the BBC, with only one music 
channel or one noise channel, although 
retaining all of the BBC's other sound 
facilities. 

If you have typed in any of the sound 
programs in INPUT (such as those on pages 
70 1 to 707 or pages 985 to 991) you will know 
what is possible from your computer. Even 
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the most sophisticated sounds that can be 
produced by the most sophisticated com- 
puters are not up to performance or recording 
standards, not to mention the drawbacks of 
trying to play music on a QWERTY key- 
board. Even at its best, the micro falls some 
way short of a purpose-built musical 
instrument. 



MUSICAL INSTRUMENTS 



The story of musical instrument development 
in the last few decades closely parallels that of 
calculating machines. Traditionally, instru- 
ments were mechanical — skins being hit, 
strings being plucked or bowed, and so on. 
Gradually, the increasing need for greater 
volume in live performances, and the de- 
mands of recording, led to instruments such as 
guitars and pianos being electrified — and fin- 
ally, over the past few years, purely electronic 
musical instruments, such as synthesizers, 
have appeared. Just as calculating machines 
have evolved from the mechanical abacus to 
the modern microcomputer incorporating 
digital electronic technology, the latest mus- 
ical instruments are filled with microchips. 

Modern synthesizers are extremely so- 
phisticated devices. Instead of the limited 
number of notes which can be played on a 
computer, and the limited (or non-existent 
enveloping facilities, you'll be faced with a 
bewildering array of possibilities. Typical, 
medium-priced synthesizers allow you to play 
chords of up to eight notes on a proper 
keyboard. Almost all machines offer an array 
of preset sounds, so if you want the sound of a 
piano, or a violin, you merely have to press 
the correct button. Presets aren't the whole 
story though, you can twiddle to your heart's 
content to produce almost any sound you 
desire — the ad-man's dream of the synthe- 
sizer that can be a whole orchestra in your 
front room isn't here yet, but is probably 
lurking in the wings somewhere. 

When synthesizers are mentioned, most 
people immediately think of the keyboard 
instruments, which are by far the most com- 
mon type of synthesizer. But since the heart of 
the synthesizer is really just a box of 
electronics for producing sounds, which can 
be triggered by some kind of signal, there is 
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no reason, in theory, why any kind of instru- 
ment cannot be used for triggering the 
electronics, In practice, it's a slightly different 
story. For various technical reasons, the 
keyboard remains the most popular kind of 
synthesizer instrument, although you can buy 
guitar synthesizers, which are played exactly 
like a guitar, but sound however you wish. 
There are also drum synthesizers — as distinct 
from synthetic drum machines — which are 
triggered by striking a series of pads. 

Drum machines, on the other hand, are 
pre-programmed to provide a rhythmic back- 
ing without the intervention of a performer. 
But these, too, come within the range of 
synthesizers. Until recently, drum machines 
had a very characteristic sound, so any record 
made with a machine instead of a drummer 
was instantly recognizable. As technology 
advances, it's getting rather more difficult to 
tell. Most drum machines offer some preset 
rhythms and also have memory facilities 
which allow you to create and store your own 
rhythm pattern. 

It's this last facility of drum machines 
which points the way towards a real musical 
breakthrough. Until recently, musical ability 
has always been dependent on manual 
dexterity — being able to move one's fingers 
quickly and fluently over a keyboard, or being 
able to hit a drum accurately and on time. 
With wind instruments, the tricky skill of 
breath control comes into it, too. The advent 
of the programmable musical instrument 
changes all that. 

The programmable drum machine isn't a 
substitute for musical talent. You still need to 
be able to understand rhythm, and to 'hear' 
the desired effect in your mind. What the 
machine does do is to free musical talent from 
a dependence on manual dexterity — and in 




this case from a need to purchase an expensive 
and bulky drum kit. 

The keyboard synthesizer already has the 
facility to sound like virtually any instrument 
vou choose. So if you add an ability to 



program its performance, a whole world of 
music opens up even to those people whose 
fingers are all thumbs. Enter MIDI, a system 
which allows you to add programming to the 
svnthesizer. 
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A MIDI bus can contain up to 16 chan- 
nels of information, controlling as many 
as 16 instruments 



Synthesiser 



Now that both computers and musical 
instruments are employing the same kind of 
technology it's relatively easy to send inform- 
ation from a computer to a musical instru- 
ment, or vice versa — what MIDI is all about. 



WHAT IS MIDI? 



MIDI is a standard just like a Centronics or 
RS 232 interface which you may have come 
across in connection with peripherals such as 



printers or modems. In this case, although 
MIDI is used exclusively in the world of 
music, the role of the interface is exactly the 
same — to transfer standard-formatted in- 
formation between one place and another. Its 
main role as a standard is to make sure that the 
information is transmitted in such a way that 
any MIDI-compatible piece of equipment 
will understand the information received. 

There have been previous attempts to 
impose a standard for communication be- 
tween musical instruments which have failed 
to become generally accepted. The story 
seems different for MIDI — all of the syn- 
thesizers and drum machines being produced 
by two of the world's leading keyboard 
manufacturers, Yamaha and Roland, adhere 
to the standard, and now a range of computer 
equipment compatible with the standard is 
arriving. The standard seems set to be univer- 
sally adopted by all manufacturers both of 
electronic musical equipment and of the 
computer equipment which can be used with 
them. 

Each piece of MIDI-compatible equip- 
ment has three five-pin DIN sockets, These 
are labelled 'IN', 'OUT' and 'THRU' (some 
older MIDI equipment may not have 
'THRU'). 'IN' allows the equipment to rece- 
ive MIDI signals from another piece of MIDI 
equipment. 'OUT' is simply the reverse, 
allowing one piece of MIDI equipment to 
send out MIDI signals to another piece of 
MIDI equipment. 'THRU' sends a direct 
copy of the incoming information on to 
another piece of MIDI equipment. This 
means you can drive several pieces of equip- 
ment at the same time by connecting together 
via the 'THRU' sockets. So equipment which 
does not have 'THRU' is much more limited. 
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MIDI allows up to 16 separate channels of 
information to be transmitted simultaneous- 
ly. Each channel allows the musician to 
control a separate instrument, but the inform- 
ation co-exists in the same wire. Each piece of 
equipment 'tunes in' to the information being 
sent to it, a little like a television receiver 
tunes in to a particular television channel. 



HOW DO I USE MIDI? 



MIDI has been around since 1982, although 
it has only just been brought to the attention 
of home computer owners. Musicians have 
been using MIDI to trigger one instrument 
from another. For example, two synthesizers 
can be set to produce different sounds, but be 
played simultaneously from one keyboard, by 
connecting the two instruments together via 
MIDI and playing the keyboard of one of the 
two instruments. 

MIDI also allows a musician to connect a 
drum machine to a keyboard and synchronize 
a rhythm track with the melody. Other possi- 
bilities include connecting a sequencer. A 
sequencer is a device which remembers what 
has been played and allows it to be played 
back. There are two types — real-time and 
step-time. A real-time sequencer plays back 
exactly what the musician has played, whereas 
a step-time sequencer literally steps through 
the tune, with the musician playing each note 
in turn, filling in individual slices of time, 
until the tune is completed. 



MIDI AND HOME COMPUTERS 



Along with the launch of computers using the 
MSX standard has come publicity about the 
relationship between MIDI and home com- 
puters. Yamaha have introduced the CX5M 
music computer, an MSX computer with a 
built-in synthesizer. Adding a piano-type 
keyboard to the computer gives the owner a 
fully fledged synthesizer. The machine opens 
up all sorts of possibilities to musicians — 
music can be composed on a monitor screen, 
or the computer can be used as a sequencer 
without extra hardware. 

This computer costs considerably more 
than a BBC, but you can get a similar set-up if 
you own a Spectrum, Commodore 64, or 
BBC by using your computer connected to a 
MIDI synthesizer. You'll need a MIDI inter- 
face box to plug into your computer, a 
connecting lead, and some software. 

Costing less than a Spectrum, the interface 
box will allow you to connect your computer 
to any piece of MIDI-compatible equipment. 
At present, with the price of MIDI- 
compatible synthesizers starting at well in 
excess of a BBC, this is an expensive way for 
home computer users to extend their music 



making capabilities, but like printers, colour 
monitors and disk drives, the prices of instru- 
ments can be predicted to fall. In the near 
future a synthesizer will probably be compar- 
able in price to the home micros that can be 
used to control them. 

But even before prices fall, owners of 
MIDI-compatible musical equipment will 
find that a home computer and interface is a 
very attractive proposition. With suitable 
software a whole range of possibilities is 
opened up, and any number of dedicated add- 
ons can be imitated, at a fraction of the cost. 

The built-in sound capabilities of the 
chosen home computer are not used at all 
when connected to MIDI — the sound is 
always generated by the synthesizer or drum 
machine — so there isn't really any point in 
purchasing an expensive microcomputer for 
use specifically with MIDI. It is interesting to 
realise that there is no real advantage in using 
expensive business computers over home 
computers. Even the extra memory offered by 
a business machine is largely superfluous, as 
the standard memory size of a home computer 
generally offers far more storage than any 
dedicated sequencer, for example. The mes- 
sage is that any computer that can have a 
MIDI interface attached is just as good as 
another, although it must be said that you 
may well find a 16K Spectrum slightly 
limited in its storage capacity. 

It's worth noting, too, that the sound 
quality available is not limited by the record- 
ing medium. Because the sound is stored 
digitally, it should be comparable with a 
medium like Compact Disc rather than, say, 
tape where all sorts of unwanted noise may be 
introduced. In other words, what comes out 
of a MIDI system is exactly what went in. 



MIDI SOFTWARE 



Once you have your computer hitched up via 
MIDI to your musical instrument, you'll 
need some software to make it all work. At 
present, the range is still restricted and com- 
parable in price to some of the business 
software available for home computers. The 
situation will change as more and more people 
want to use MIDI. 

Nonetheless, even within the restricted 
software range, there is software which will 
enable you to duplicate sequencers, compose 
multi track music, and edit your tunes. Exact- 
ly what is on offer varies from manufacturer 
to manufacturer, and from computer to 
computer. 

Although you may not be able to play a 
note on any musical instrument, you'll find 
that you can play music by composing on 
your computer's monitor, and sending the 



information to the musical instrument to be 
played. The composition can also be stored on 
disk or tape for playing back or alteration at a 
later date. It has been predicted that some 
sheet music will be available on MIDI-coded 
EPROMs, so you can have either whole 
pieces of music which can be played back a 
little like a record or tape, or you could play 
along with an EPROM containing a backing 
track. 

A typical MIDI software package is the 
music composer program which allows you to 
build up your piece on screen in much the 
same way as you would write it on paper — 
adding notes to a musical staff. Full replay 
and editing facilities allow you to check your 
progress and make alterations to the music on 
screen as you go. 

But it doesn't stop there, as good software 
should put all the features of the synthesizer 
at your disposal. You can control as many 
voices at once as there are voices on the 
synthesizer — a typical good-quality poly- 
phonic keyboard synthesizer may be able to 
play as many as 16 notes together. You can 
select from the synthesizer's range of preset 
voices or blend new notes. If your synthesizer 
has split keyboard capability, you can even 
have two different instruments playing 
together — a melody and backing, perhaps. 
There are generally three types of information 
which you can send through the MIDI — 
notes, program changes and pitchblend. 

At present, there is a standard set of MIDI 
codes which work with any MIDI- 
compatible synthesizer. But these tend only 
to control the most basic functions available. 
Special features are accessed by special, ex- 
tended code systems — and these usually vary 
from instrument to instrument. As a result, a 
complex, widely orchestrated composition 
may call for familiarity with a large number of 
MIDI codes, although this may well simplify 
considerably in future. 

There's no reason why you should be 
discouraged from using MIDI, because you 
are a computer programmer rather than a 
musician. In some ways you have a positive 
advantage. If you can program in machine 
code there's nothing to stop you writing your 
own MIDI software, tailored to your own 
needs, and save the expense of buying com- 
mercial software. 

MIDI seems to offer the musician and 
non-musician alike many new possibilities. 
As prices fall, musical instruments seem 
destined to find their way into far more 
homes — perhaps it'll be back to the old sing- 
song evenings round the synthesizer! And you 
will have the opportunity of being really 
creative with your computer. 
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CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 
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1317-1321 


computer 


1557-1561 


1269-1275 


, 1308-1313 




Pascal 1352-1355 : 


1386-1391 






test card program 


1474-1475 


Editing 




Life game 


1237-1239 






tool kit 

Commodore 64, Spectrum 


1525-1531 


information stored on disk 


1608-1615 






Q 




Artificial intelligence 


1264, 1294 


with cross-referencer 
with LOGO 
with Pascal 
Escape adventure game 


1512-1519 

1296 

1355, 1391 


M 

Machine code 

cross-referencer utility 




Quicksort program, recursive 


1293-1294 


B 




1424-1428, 1450-1455 


i 1486-1492 




1512-1519 


R 






1493-1499, 1545-1551 


, 1568-1575 


games programming 






Basic programming 








see cliffhanger; life game 




Radio codes, deciphering 


1562-1565 


bluffing games 


1500-1507 


F 




program to play background music 


Recursion 




file handling 


1358-1364 




Acorn, Commodore 64 


1448-1449 


in BASIC 


1289-1295 


fractals 1397-1401 


, 1434-1439 


Factorials, calculating 




routine for hi-res graphics 




in fractal programs 


1398-1401, 


moving colour sprites 




BASIC program for 


1291-1293 


Commodore 64 


1596-1607 




1434-1439 


Commodore 64 


1258-1263 


in LISP 


1458-1459 


tonal screen dump 


1369-1371 


in LISP 


1458-1459 


operating system 


1322-1327 


Files, handling 


1358-1364 


tool kit, to add to BASIC 




in LOGO 


1299-1300 


perspective drawing 


1461-1465 


FORTH 




Commodore 64, Spectrum 


1525-1531 


Room planner program 




puzzle solving 


1557-1561 


Part 1 — terminology and stack 




'Match that' colour code 




1269-1275 


, 1308-1313 


recursion 


1289-1295 


manipulation 


1482-1485 


guessing game 


1356-1357 






screen dump programs 


1365-1371 


part 2 — variables and new 




Mathematical functions 












definitions 


1508-1511 


in fractal geometry 




s 








part 3 — comparisons and 




1397-1401 


, 1434-1439 




c 




loops 
Fractals 1397-1401, 


1532-1536 
1434-1439 


in puzzle-solving 
with FORTH 


1557-1561 
1485 


Screen dumping, of graphics 


1365-1371 


Cavendish Field game 








with LISP 


1415 


Shading, with colour 


1464-1465 


part 1 — design rules and 








with LOGO 


1320 


Sprites, Commodore 64 




UDGs 
part 2 — map and troop arrays 


1254-1257 


G 




Memory 

advantages of Pascal in 
banks, range of 
Commodore 64 


1353 


moving and sioring 
Sprites, LOGO 


1258-1263 
1317-1320 




1282-1288 


Games 






Stack, manipulation of 




part 3 — issuing orders 


1301-1307 


bluffing 


1500-1507 


1258-1259 


in FORTH 


1484-1485 


part 4 — combat and morale 




Cavendish Field 


1254-1257, 


checking with LOGO 


1299 


Synthesizers 


1616-1618 


routines 


1346-1351 


1282-1288, 1301-1307, 


1346-1351, 


locations of VIC-1I chip 








pan 5 — strengthening the 






1372-1377 


Commodore 64 


1262 


T 




computer 


1372-1377 


cliffhanger 1240-1244, 


1276-1281, 


managing by OS 


1323-1327 




CUffhanger 

part 12 — adding weather 




1328-1332, 1338-1345, 
1402-1409, 1440-1447, 


1378-1385, 
1476-1481, 


storing FORTH in 
storing LISP in 


1508-1510 
1459-1460 


Test card program 
Tool kit, to add commands 


1474-1475 




1240-1244 


1520-1524, 1537-1544, 


1580-1588 


storing sprites in 




to BASIC 




part 13 — rolling boulders 1 




desperate decorator 


1314-1316 


Commodore 64 


1258-1260 


Commodore 64, Spectrum 
Towers of Hanoi program 


1525-1531 


part 14 — rolling boulders 2 


1276-1281 


escape 1424-1428, 
1486-1492, 1493-1499, 


1450-1455 
1545-1551 


MIDI interfaces 
Music 


1619-1620 


1294-1295 




1328-1332 




1568-1575 


background, program to play 




Turtle 1266-1268 


, 1296-1300 


part 15 — walking Willie 




horoscope program 


1245-1253 


Acorn, Commodore 64 


1448-1449 






part 16— jumping Willie 1 


1338-1345 


life 
'match that' 


1237-1239 
1356-1357 


composer program 

1392-1396 


1333-1337, 
,, 1416-1423 


u 






1378-1385 


scissors, paper, stone 


1502-1507 


with synthesizers, using MIDI 




part 17 — jumping Willie 2 




'yacht' dice game 


1589-1595 




1616-1620 


User-defined functions, 






1402-1409 


Graphics 








in FORTH 


1484 


part 18 — death, sound and 




displays, programs for dumping 






in LISP 


1456-1459 


end routines 


1440-1447 




1365-1371 











part 19 — Willie scores and 




hi-res, adding final commands 










speeding up 


1476-1481 


Commodore 64 


1596-1607 


Operating system 


1322-1327 


V 




part 20 — moving snakes 


1520-1524 


moving and storing sprites 










part 21 — main loop 


1537-1544 


Commodore 64 


1258-1263 






Variables, use of in FORTH 




part 22— hex dump for debugging 


perspective drawing 


1461-1464 


P 






1508-1510 




1580-1588 


shading 


1464-1465 




V1C-I1 chip 




Colour 




using fractals 1398-1401, 


1434-1439 


Paper, scissors, stone game 




Commodore 64 


1258 


code guessing game 


1356-1357 


using LOGO 1296-1300, 


1317-1320 




1502-1507 


memory locations of 


1262 
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The final part of INPUT fortns a complete it 
to your collection. There's a full list of all the 
articles that make up the course, plus a handy 
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